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
