Macro - boucle

Bonjour,

J'aimerais faire une macro de type boucle afin que la ligne de code si-dessous se répète sur autant de cellule remplie de la colonne A :

Sub EFFACE_CLIENT()
'
' EFFACE_CLIENT Macro
'

'
        Sheets("CLIENT").Select
        Range("A84").Select
        Selection.Copy
        Sheets("Feuil1").Select
        Cells.Replace What:="Lavolandor Era'di-Vendi  ", Replacement:="", LookAt _
        :=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

End Sub

Il s'agis de la ligne se créant lors de l'enregistrement des étapes que je fais manuellement à savoir que j'aimerais que le Cells.Replace What:="Lavolandor Era'di-Vendi " corresponde à la cellule copiée auparavant.

A savoir que l'utilité de la macro est de prendre la valeur de la cellule A1 de la feuille 1 pour ensuite lancer une recherche et un remplacement par "" sur la feuille client.

En vous remerciant d'avance de l'aide que vous pourrez m'apporter.

Bonjour et bienvenu(e)

A tester

Sub EFFACE_CLIENT()
Dim J As Long

  With Sheets("ClIENT")
    For J = 1 To .Range("A" & Rows.Count).End(xlUp).Row
      Sheets("Feuil1").Cells.Replace What:=.Range("A" & J), Replacement:="", LookAt:=xlPart, _
                                     SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
                                     ReplaceFormat:=False
    Next J
  End With
End Sub

La macro et tes explications sont contradictoires

Explication : remplacer les noms de la page "Feuil1" dans la page "CLIENT"

Macro : remplacer les noms de la page "CLIENT" dans la page "Feuil1"

Si pas ça ton fichier va être indispensable

Wow quelle execution rapide !

C'était exactement ca

Merci beaucoup !