Sub coupercoller()
Dim Lig As Long
Dim NbrLig As Long
Dim NumLig As Long
Sheets("Feuil1").Activate ' feuille de destination
NumLig = 4 'alors là ca doit etre le N° de la 1er ligne de données en comptant la ligne 1 = 0 .... ? '
NbrLig = Range("A65536").End(xlUp).Row
With Sheets("Feuil1") ' feuille source'
For Lig = 4 To NbrLig 'n° de la 1ere ligne de données'
If .Cells(Lig, 6).Value = "Ok" Then
.Cells(Lig, 1).EntireRow.Cut Sheets("Feuil2").Cells(NumLig, 1) 'Shift:=xlDown
NumLig = NumLig + 1
End If
Next
End With
End Sub