=SI(formule_originale="VRAI";"OUI";"NON")
Sub Macrototo()
'
'
' Macro enregistrée le 04/08/2010 par fifi
'
'
Columns("E:E").Select
Selection.Replace What:=Range("G1"), Replacement:="Oui", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
Sub Macrototo()
Columns("E:F").Replace True, "OUI"
Columns("E:F").Replace False, "NON"
End Sub
Sub Macrototo()
With Columns("E:F")
.Replace True, "Oui"
.Replace False, "Non"
End With
End Sub