Oups ! important ...
penser à réactiver :
l'aide :
ScreenUpdating, propriété
Cette propriété a la valeur True si la mise à jour de l'écran est activée. Type de données Boolean en lecture-écriture.
Remarque
Désactivez la mise à jour de l'écran pour accélérer l'exécution du code de votre macro. Vous ne pourrez suivre le déroulement de la macro mais en revanche celle-ci sera exécutée plus rapidement.
N'oubliez pas d'affecter de nouveau la valeur True à la propriété ScreenUpdating à la fin de la macro.
un exemple sur un sub de déprotection :
Sub NoProtect()
Dim FeuillP2 As Object
Application.ScreenUpdating = False
For Each FeuillP2 In Worksheets
FeuillP2.Unprotect
Next
Application.ScreenUpdating = True
End Sub
Bonne soirée,
Brico