VBA : Inserer une formule recherchev dans une cellule

Bonjour à tous,

Je souhaite juste, en VBA, intégrer une formule dans une cellule.

Lorsque je suis dans une cellule sur la 1ere colonne :Si la celulle reste vide, je crée une nouvelle ligne en dessous lorsque je change de cellule

Jusque là, c'est ok.



Si je change la valeur de la cellule alors :
- J'insère dans la cellule se situant juste à droite sur la même ligne, ma fonction recherchev
- Je crée une ligne en dessous lorsque je change de cellule

Voici la formule à insérer (en mode excel classique) : RECHERCHEV("celluleactive";'Base article'!$A$3:$D$9;2;0)

cellule active reprenant bien sur les coordonnées de la cellule sur laquelle je me trouve.

Cette formule a une spécificité, il faut que la formule prenne en compte la cellule où je me trouve.

J'espère que vous avez saisi ma demande sinon je répondrai bien sur à vos interrogations.

Voici donc mon code qui ne fonctionne pas pour la 2eme partie et je n'arrive pas à m'en sortir.


Excusez moi pour certaines syntaxes qui pourraient vous faire mal aux yeux, je découvre et apprends sur le tas grâce à ceux que je peux trouver sur le net

Merci de votre aide !!!!

Private Sub Worksheet_Change(ByVal Target As Range)
Dim FORMULE As String

    If Target.Column = 1 And Target.Value = "" Then
        Application.EnableEvents = False
            Cells(ActiveCell.Row, 1).EntireRow.Select
            Selection.Insert Shift:=xlDown
        Application.EnableEvents = True
          
        
    Else
        Application.EnableEvents = False
        FORMULE = "=VLOOKUP(ActiveCell.Address,Base article!$A$3:$D$9,2,FALSE)"
        Cells(Target.Row, 2).Formula = FORMULE
        ActiveCell.EntireRow.Insert Shift:=xlDown
        Application.EnableEvents = True
    End If
    
End Sub