Bonsoir
Une idée comme-ça
Ton programme met 1,5 seconde
Avec Application.ScreenUdapting = False (Application.StatusBar n'a pas besoin du rafraîchissement de l'écran)
+ suppression de quelques Sh02 comme tu es dans un bloc With Sh02 .... End With
je suis arrivé à 0.9 seconde
Voir à repenser au code
Bonne soirée
PS: Pour le code si dans tous les cas, en cas de ligne identique, on mettait à jour toutes les données de la ligne,cela simplifierait le code et ferait gagner du temps
A voir