Sub macro_3_pour_accepte()
'
' macro_3_pour_accepte Macro
'
'
Range("A4:E26").Select
Selection.Replace What:="3", Replacement:="Accepté", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
Range("A4").Select
End Sub