Sub ChangerSigne()
[COLOR="Red"]ActiveSheet.Unprotect ("0000") '[/COLOR] [COLOR="Blue"]< ton mot de passe ici[/COLOR]
'
If Right([H13].Formula, 9) = "+$G$54)))" Then _
Quoi = "+$G$54": ParQuoi = "-$G$54" Else _
Quoi = "-$G$54": ParQuoi = "+$G$54"
['Feuil1'!H13:H50].Replace What:=Quoi, Replacement:=ParQuoi
[COLOR="Red"]ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:=("0000") '[/COLOR][COLOR="Blue"]< ton mot de passe ici[/COLOR]
End Sub