Bonjour à tous,

Je cherche à optimiser la ligne ci-dessous:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Selection.Replace What:="46", Replacement:="Pilote", LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Mon script permet de remplacer uniquement la valeur "46" par "Pilote".

Je souhaiterais que toutes les chaînes de caractères ci-dessous soient prises en compte et qu'elles soient également remplacées par "Pilote"

46#46
46#46#46
46#46#46#46
46#46#46#46#46
....etc

Savez-vous comment faire ?

Merci d'avance pour votre aide.