Sub Macro1()
Dim sh1 As Worksheet, sh2 As Worksheet, sh3 As Worksheet
Set sh1 = Sheets("Feuil1")
Set sh2 = Sheets("Feuil2")
Set sh3 = Sheets("Feuil3")
Application.ScreenUpdating = False
sh1.Rows("2:2000").ClearContents
sh3.Rows("2:2000").ClearContents
With sh2
For i = 2 To .Range("A65535").End(xlUp).Row
'Si pas de date -> direction Feuil1
If .Cells(i, 7).Value = "" Then
.Range(.Cells(i, 1), .Cells(i, 20)).Copy Destination:=sh1.Range("B" & sh1.Rows.Count).End(xlUp)(2)
Else
'Sinon direction Feuil3
.Range(.Cells(i, 1), .Cells(i, 20)).Copy Destination:=sh3.Range("B" & sh3.Rows.Count).End(xlUp)(2)
End With
End If
Next i
End With
Application.ScreenUpdating = True
End Sub