[VBA-E]Pb code VLOOKUP

Bonjour,

Je désire utiliser la formule VLOOKUP de manière dynamique dans le code suivant sous vba :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
    For i = der_lig_sortie To der_lig_sortie2
    '    Cells(i, 14) = v_date
    Cells(i, 14) = Mid(Cells(i, 6), 1, 6)
 
    'Création formule pour rechercher la bonne transaction
    Cells(i, 16).Select
    If Cells(i, 6) <> Empty Then
        ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(R[" & i & "]C[15]," & fichier_cesseur & "!C23:C24,2,FALSE"
        Selection.Copy
 
        Cells(i, 9).Select
        Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
            False, Transpose:=False
    End If
 
    Next

Le problème est que ça plante sur la création de la formule !
Quelqu'un pourrai-t-il me donner une indication ?

Merci d'avance.