ça doit être le temps de traitement sur la plage, j'ai testé en mixant ma boucle par ligne avec la méthode de galopin01 et ça le contourne apparemment :
Application.Calculation = xlCalculationManual 'désactivation du calcul automatique
Application.ScreenUpdating = False 'désactive l'écran
ligne = Range("A2").Value 'ligne de départ dans a2
For i = 1 To Range("C2").Value 'Boucle de 1 jusqu'à la valeur indiqué dans c2
fincolligne = Cells(ligne, Cells.Columns.Count).End(xlToLeft).Column 'avoir la fin de la ligne
'Range(Cells(ligne, 1), Cells(ligne, fincolligne)).Interior.ColorIndex = 8
a = Range(Cells(ligne, 1), Cells(ligne, fincolligne)) 'copier selection ligne en cours définit à chaque tour de boucle
Range(Cells(ligne, 1), Cells(ligne, fincolligne)) = a
ligne = ligne + 1 '+1 pour passage boucle suivante la ligne prendra +1 pour simuler le déplacement
Next i
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
MsgBox "fin du copier/coller"
End Sub
vive la méthode à galopin01