Private Sub CommandButton1_Click()
repertoire = "C:\Users\ABP\Desktop\Extraction"
NomFichierXLS = Dir(repertoire & "\*.xls")
Chemin = repertoire & "\" & NomFichierXLS
Workbooks.Open (Chemin)
ActiveWorkbook.Worksheets(1).Activate
Dim dl&
dl = Range("A65536").End(xlUp).Row
[C2].FormulaLocal = "=SI(A2="""";"""";DECALER('@\[?]Export interventions'!$A1;EQUIV(""*""&A2&""*"";'@\[?]Export interventions'!$J$2:$J$65536;0);))"
Range("C2:C" & dl).FillDown
FormulaLocal = Replace(Replace(FormulaLocal, "@", repertoire), "?", fichier)