Sub Copie()
Dim ligneFin As Long
ligneFin = Sheets("Données 2").Range("A" & Rows.Count).End(xlUp).Row
Sheets("Données 2").Range("K1:Y1").AutoFill Destination:=Sheets("Données 2").Range("K1:Y" & ligneFin), Type:=xlFillDefault
ligneFin = Sheets("Données 1").Range("A" & Rows.Count).End(xlUp).Row
Sheets("Données 1").Range("K1:Y1").AutoFill Destination:=Sheets("Données 1").Range("K1:Y" & ligneFin), Type:=xlFillDefault
End Sub