View Single Post
 
Old 03-30-2022, 02:47 PM
p45cal's Avatar
p45cal p45cal is online now Windows 10 Office 2019
Expert
 
Join Date: Apr 2014
Posts: 956
p45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond repute
Default

A guess:
Either you're copying some formulae which are complex or refer to entire rows/columns
and/or the cells you're changing are the precedents to many and/or complex formulae (possibly also involving entire columns).
So the time taken may be the recalculation time. Do you see evidence of calculation taking place on the status bar at the bottom of the sheet? Changing calculation to manual may not speed things up but it's worth a try to see if it makes a difference.


ps. your code could probably be shortened to:
Code:
If ind > 5 Then    'Pour éviter de copier l'entête du tableau
  Range("A" & ind - 1 & ":M" & ind - 1).Copy Range("A" & ind)
End If
or
Code:
If ind > 5 Then    'Pour éviter de copier l'entête du tableau
  Cells(ind - 1, "A").Resize(, 13).Copy Cells(ind, "A")
End If
Reply With Quote