Salut  
G un message d'erreur m'indiquent next saans for et apres maintes verification il y abien le compte
 
 
AuxMatrix = Array("Columns CS", "Columns SS", "Columns Cladded" )
For j = 0 To 2
With Worksheets(AuxMatrix(j))
MsgBox AuxMatrix(j)
N = 0
For i = 5 To 5000
     
        If .Cells(i, 2) = "" And Cells(i + 1, 2) = "" Then
            For w = 1 To 5
                If Cells(i, 2 + w) = "" Then
                    N = i
                    Exit For
                End If
            Next w
            If N <> 0 Then
                N = i
                Exit For
            End If
        End If
 
    If N - 1 > Last_Data Then
        Last_Data = N - 1
    End If
 
Next i
 
Next j
 
 
D'avance merci

il manque le end with juste avant le next j...