Macro de remplacement

[sergio]

Bonjour à tous,


Dans la macro suivante, je n'arrive pas à remplacer les textes recherchés (BTS) et ceux à remplacer (salle 16) par des variables (x et y).

Quelqu'un peut il m'aider,
merci

selection.Replace What:="BTS", Replacement:="Salle 16", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False

 

[STephane]

dim formation as string
dim remplacement as string
formation="BTS"
remplacement="Salle 16"

selection.Replace What:=formation, Replacement:=remplacement, LookAt:=
xlPart, SearchOrder:=xlByRows, MatchCase:=False

 

[sergio]

Désolé, mais cela génère une erreur de type 91.

Merci tout de même, et si quelqu'un a une astuce
cela me ferait plaisir ;-)o(

 

[Sergio]

Merci pour votre aide