Macro variables rechercheV

Bonjour,

J'ai des difficulté a intégrer les variables dans une rechercheV,

    'Variables pour feuille1
        Dim DerColonne As Integer
        Dim Derligne As String
        DerColonne = Cells(1, Columns.Count).End(xlToLeft).Column
        Derligne = Range("A" & Rows.Count).End(xlUp).Row

    'Variables pour feuille2"
        Dim DerColonne2 As Integer
        Dim Derligne2 As String
        DerColonne2 = Cells(1, Columns.Count).End(xlToLeft).Column
        Derligne2 = Range("A" & Rows.Count).End(xlUp).Row
        Range("A1").End(xlToRight).Offset(0, 1).Range("A1").Value = "Statut"
        Range("A1").End(xlToRight).Offset(1, 0).Range("A1").Value = _
        "=VLOOKUP(RC[color=#FF0000][-31][/color],'[color=#0000FF]feuille1'!R1C1:R20891C3[/color],3,FALSE)"
        Cells(2, DerColonne2 + 1).Select
        Selection.AutoFill Destination:=Range(Cells(2, DerColonne2 + 1), Cells(Derligne2, DerColonne2 + 1)), Type:=xlFillDefault

j'ai essayer d'y intégrer les variables,

[-31], colonne dont l'entête est "Repère"

feuille1'!R1C1:R20891C3, la plage de la feuille1

3, la derniére colonne de la feuille1

je n'arrive pas a mettre en forme ce code,

Quelqu'un a t-il la solution ?

Merci de votre retour

Salut,

J'ai déjà vu ta demande hier et j'ai pensé : bon courage à qui se lancera sans que Tom nous ait fourni son fichier

Et bien, apparemment, personne

Cordialement.