With Sheets("[COLOR="Green"][B]Nom_de_ta_feuille[/B][/COLOR]")
ActiveSheet.Unprotect password:="toto"
End With
'Ta macro
With Sheets("[COLOR="green"][B]Nom_de_ta_feuille[/B][/COLOR]")
ActiveSheet.Protect DrawingObjects:=True, contents:=True, Scenarios:=True, password:="toto"
End With