Macro pour recherche/remplacer

Bonjour Messieurs

C'est après avoir pas mal cherché sur le forum la solution à mon problème que je m'adresse à vous :

J'ai un petit problème dans une macro, j'aimerai pouvoir automatiser le remplacement du numéro de colonnes dans ma recherchev. Après enregistrement, ma macro est la suivante :

Sub Remplacement()
Sheets("Feuil1").Select
Range("D4:AZ100").Select
Selection.Replace What:="11;faux", Replacement:="4;faux", LookAt:=xlPart _
, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="12;faux", Replacement:="5;faux", LookAt:=xlPart _
, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="13;faux", Replacement:="6;faux", LookAt:=xlPart _
, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="14;faux", Replacement:="7;faux", LookAt:=xlPart _
, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False


Malheureusement, ce code ne fonctionne pas et les valeurs ne sont jamais remplacés ?
Y a t il une erreur dans ma macro ? Est-il impossible de remplacer des caractères dans une recherchev par macro ?
Précision: je suis sur Excel 2003

Merci de votre aide