Copier Coller la dernier ligne en trois exemplaires

Bonjour

Voici mon tableau1 suivant

je souhaite copier la dernière ligne du tableau1 et la coller en bas en trois exemplaire

merci

Bonjour,

à tester,

Sub test()
Dim lastRw As Long, i As Integer

For i = 1 To 3
    lastRw = Cells(Rows.Count, 1).End(xlUp).Row
    Range("A" & lastRw & ":D" & lastRw).Copy Range("A" & lastRw + 1)
Next i
End Sub

[quote=i20100 post_id=796155 time=1568395604 user_id=47027]

Bonjour,

Merci Beaucoup

Merci pour ce retour, bonne continuation!