Sub copie()
Dim DL As Long
With Worksheets("Feuil1")
.Range("O4:W45").Copy 'on copie toute la plage, y compris les lignes où les formules renvoient ""
End With
With Worksheets("Feuil2")
.Range("A" & .Cells(Rows.Count, 1).End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End With
Application.CutCopyMode = False
End Sub