Awoz, voila c'est fonctionnel (j'ai rajouté un bouton, libre à toi de le supprimer)
P.s : Petite erreur ca casse la mise en formule d'une ligne en dessous de la copie
P.s2 : Je laisse une copie du code avec "Feuil1" "Feuil2" pour ceux que ça intéresse
Code Vierge : Sub TransfertDeLignes()
Dim Blatt1 As Worksheet
Dim Blatt2 As Worksheet
Dim i As Long
Set Blatt1 = Sheets("Feuil1")
Set Blatt2 = Sheets("Feuil2")
Application.ScreenUpdating = False
Blatt1.Activate
Range("A3").Select
For i = 1 To ActiveSheet.UsedRange.Rows.Count
Blatt1.Range(ActiveCell.Address).EntireRow.Copy
Blatt2.Activate
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Blatt1.Activate
ActiveCell.Offset(1, 0).Select
Next i
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
Site du code original : https://excelcorpo.com/macro-pour-transferer-les-lignes-utilisees-vers-une-autre-feuille-excel-vba/