Bjr Beamish, bjr au Forum,
voilà ce que j'ai trouvé pour ta question , à adapter évidemment :
La plage dite 'plageàcop' est à nommer pour le départ de la zone à copier,mais tu la nommes comme tu veux.
Sub multicop()
Dim i
i = 0
While i < 15
Range('plageàcop').Select
Selection.Copy
Range('a1:A65536').End(xlDown).Select
ActiveSheet.Paste
i = i + 1
Wend
End Sub
Bonsoir à tous