repeter cette macro

ANNULÉ cause doublon - repeter cette macro

le bon post est un peu plus haut et j'ai eu la réponse ! par Pierrejean - merci toutefois à Michel


hello
comment faire pour éviter d'appuyer à chaque fois sur le bouton pour que cette macro s'effectue en boucle ! (quel fainéant je fais !)

Option Explicit

Private Sub Btn_Transfert_Click()
'Range("A1", Range("A" & Rows.Count).End(xlUp)).Copy
'With ThisWorkbook.Sheets("Feuil2")
' .Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues, , , True
'End With
'Application.CutCopyMode = False

Range("A1:A4").Copy
With ThisWorkbook.Sheets("Feuil2")
.Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues, , , True
End With
Application.CutCopyMode = False
With ThisWorkbook.Sheets("Feuil1")

Range("A1:A5").Delete
End With

End Sub

merci