Salut,
Avec l'un ou l'autre de ces codes :
Sub Sans_mot_de_passe()
ActiveSheet.Unprotect
'ton code
ActiveSheet.Protect
End Sub
Sub Avec_mot_de_passe()
ActiveSheet.Unprotect ("Mot_de_passe")
'ton code
ActiveSheet.Protect ("Mot_de_passe")
End Sub
Cordialement