Insertion formule si conditions sous VBA

Bonjour à tous,

N'étant pas très calé en VBA j'aimerai qu quelqu’un m'aide pour adapter ma macro dans le fichier joint.

Je m'explique

je souhaiterai insérer la formule suivante""=VLOOKUP(RC[-1],Feuil2!R[-1]C[-1]:R[76]C,2,FALSE)" dans la cellule d'à coté c'est numeric est sa longueur est égale à 6 chiffres,tout ça uniquement dans la rangée "a1: a21"

Vous noterai que la formule dois s'adapter à la cellule active.

merci d'avance.

Bonsoir

Il faudrait un peu de données dans le fichier feuil1 et feuil2 pour comprendre

Crdlt

En gros j’aimerais faire une recherche verticale des valeurs que l'utilisateur saisie dans la plage a2:a15 dans la feuille base

voir le fichier joint

Vla un début de code que j'ai trouvé,seulement le problème c'est je dois repasser une deuxième fois su la cellule pour que la macro marche,et je veux qu'elle ne fonctionne que dans la rangée de a2:a14

Voila j’espère que j'étais assez explicite.

re

Essaie plutôt ceci (sans formule)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lg As Integer
If Not Intersect(Target, Columns("A")) Is Nothing Then
    If IsNumeric(Target) And Len(Target) = 6 Then
        lg = Sheets("Feuil2").Range("A:A").Find(Target.Value, LookIn:=xlValues).Row
        Target.Offset(0, 1) = Sheets("Feuil2").Range("B" & lg)
Else: MsgBox " Erreur de compte": Exit Sub
End If
End sub

Ensuite tape un numéro de compte en colonne A de la feuille 1

Si ok, lors de ta réponse veille à clôturer le fil en cliquant sur la case à cocher à coté du bouton EDITER

Crdlt

Génial ça marche impec.

Merci ça va vraiment m'aider à avancer dans mon pti projet.