Bonjour James007,
Mon problème est bien un problème de syntaxe.
Ta proposition, qui consiste à passer de coordonnées absolues en relatives, ne fonctionne pas plus (sauf que l'erreur d'exécution passe de 1004 à 438 !)
Merci quand même.
A tout hasard, je renvoie quand même mon bout de code (qui par erreur était incomplet au premier envoi).
Dim Onglet As Worksheet
Set Onglet = ThisWorkbook.Worksheets("CAHT")
Dim Table As Worksheet
Set Table = ThisWorkbook.Worksheets("Marchés")
Const Col As String = "A"
Dim Table_DerLig As Integer
Table.Select
Table_DerLig = Cells(Rows.Count, Col).End(xlUp).Row
Dim Formule As String
Formule = "=VLOOKUP(RC," '& Table & '"!R2C1:R" & Table_DerLig & "C3,3,FALSE)"
Onglet.Select
ActiveCell.FormulaR1C1 = Formule