sub Copie
Dim LigneFin As Long, LigneFin2 As Long
LigneFin = Sheets("Caisse").Range("A" & Rows.Count).End(xlUp).Row
Sheets("Caisse").Range("A2:E4").AutoFilter
ActiveSheet.Range("$A$2:$E$" & LigneFin).AutoFilter Field:=1, Criteria1:="<>"
LigneFin2 = Sheets("Caisse_souhaité").Range("A" & Rows.Count).End(xlUp).Row + 1
Sheets("Caisse").Range("A6:E14").Copy Destination:=Sheets("Caisse_souhaité").Range("A" & LigneFin2)
End Sub