Mettre une fonction Excel dans une cellule via VBA

Bonjour à tous,

J'ai un pb :

Je cherche à introduire la fonction recherchev via mon code vba directement dans une cellule :

en gros une fois la macro finie, la cellule comportera une formule recherchev.

Seulement, je souhaite mettre des variables dans cette formule.

Voici mon code

Sub formula1()

nb = Sheets.Count

For n = 7 To nb
    Sheets(n).Activate
    derniereligne = Cells(1, 1).End(xlDown).Row
    For numeroligne = 3 To derniereligne
        For numerocolonne = 2 To 7
            If Cells(numeroligne, numerocolonne).MergeCells = False Then
                        If numerocolonne = 2 Then
                            index1 = 2
                            formule = "=VLOOKUP(cells(numeroligne,3),sheets(3).range(cells(4,1),cells(1000,5)),2,FALSE)"
                            Cells(numeroligne, numerocolonne).Activate
                            ActiveCell.FormulaR1C1 = formule
                        ElseIf numerocolonne = 3 Then
                            index1 = 3
                            formule = "=VLOOKUP(cells(numeroligne,3),sheets(3).range(cells(4,1),cells(1000,5)),2,FALSE)"
                            Cells(numeroligne, numerocolonne).Activate
                            ActiveCell.FormulaR1C1 = formule
                        ElseIf numerocolonne = 6 Then
                            index1 = 4
                            formule = "=VLOOKUP(cells(numeroligne,3),sheets(3).range(cells(4,1),cells(1000,5)),2,FALSE)"
                            Cells(numeroligne, numerocolonne).Activate
                            ActiveCell.FormulaR1C1 = formule
                        ElseIf numerocolonne = 7 Then
                            index1 = 5
                            formule = "=VLOOKUP(cells(numeroligne,3),sheets(3).range(cells(4,1),cells(1000,5)),2,FALSE)"
                            Cells(numeroligne, numerocolonne).Activate
                            ActiveCell.FormulaR1C1 = formule
                        End If
            End If
        Next
    Next
Next
End Sub

Je reçois l'erreur 1004.

Merci d'avance de votre aide

doublon

quel doublon ?

avec ce message-ci

https://forum.excel-pratique.com/excel/mettre-une-fonction-excel-dans-une-cellule-via-vba-t65631.html

c'est le module 11