Bonjour Muratime, bonjour le forum,
Essaie comme ça :
Sub copier()
Dim DL As Integer
F01.Range("A1:C4").Copy
With F02
DL = IIf(.Range("A1").Value = "", 1, .Cells(Application.Rows.Count, "A").End(xlUp).Row + 1)
.Cells(DL, "A").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End With
End Sub