Microsoft 365 Macro pour chercher un code client dans une autre feuille

Bonjour,

J'ai une feuil12 = un tableau avec des fiches client (450) en colonne A c'est le code du client (alphanumérique)
J'ai une feuil7 = un tableau avec la ligne 2 vierge
D4 'jai le code du client que je recherche

Quand j'excute la macro rien ne se passe ?

Voila la macro

'Déclaration des Variables
Dim MonClient As Range
Dim ListeClient As Range
Dim NbLignes As Long
Dim LigneActive As Long

'Affectation des variables
Set ListeClient = Feuil12.Range("A2", Feuil12.Range("A1").End(xlDown))
NbLignes = ListeClient.Rows.Count
LigneActive = 0

'On insérer dans Batigix feuille.
Feuil12.Range("A1").EntireRow.Copy
Feuil7.Range("A2").Select

'On boucle chaque région se travant dans la liste
For Each MonClient In ListeClient

'On se decale d'une ligne vers le bas
LigneActive = LigneActive + 1


'On recherche le code client qui été saisie dans la celluel D4
If MonClient.Offset(1, 1).Value = Feuil7.Range("D4").Value Then

'Si mon client est trouvée, on récupérer l'enregistrement de client
MonClient.EntireRow.Copy ActiveCell
ActiveCell.Offset(1, 0).Select
End If
Next MonClient

Merci de votra aide Francis