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