Bonjour.
Ce programme agira sur la sélection en cours.
Sub Remplace_Lettres()
Depart = InputBox('Lettre à changer')
Arrivée = InputBox('Remplacer par :')
For Each Cellule in Selection
Selection.Replace What:=(Depart), Replacement:=(Arrivée), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Next
End Sub
Message édité par: GillesC, à: 16/03/2006 11:48