Copier et coller une plage de valeur jusqu'à fin colonne

Bonjour,

J'ai créé une macro qui me permet de ressortir m valeur dans une colonne A (de la case A2 à la case Am+1). Je souhaite copier cette plage de m valeurs sur la case m+1, et ainsi la copier jusqu'à la fin de ma colonne A (dont le nombre de ligne peut varier).

Comment faire?

Merci!

Bonjour,

A tester

Sub Test()
Dim m As Integer
    m = InputBox("Veuillez saisir la valeur de m.", , 4)
    Range("A2:A" & m + 1).AutoFill Destination:=Range("A2:A" & Rows.Count), Type:=xlFillCopy
End Sub

A+

Merci cela fonctionne très bien!!