XL 2019 vba

a = "tableau" 'feuille où on va coller
b = "Dijon'!" 'feuille où on va chercher le valeur
w = "='C:\Users\U021157\Documents\u021157\Fichiers envoyés\a\macros"
y = "[villes.xlsm]"
Z = 2 'colonne à aller chercher
q = 3 'colonne où mettre les données
Ligne = 1   ' Ligne à écrire
For i = 1 To 15
    x = tableau(i) 'lignes à aller chercher
    If x <> "" Then ' Si cellule tableau non vide, faire ...
        Sheets(a).Cells(Ligne, q).FormulaR1C1 = w & "\" & y & b & "R" & x & "C" & Z
        Cells.Replace What:="$", Replacement:=""
        Cells(Ligne, q).Select
        Selection.AutoFill Destination:=Range(Cells(Ligne, q), Cells(Ligne, q + 10)), Type:=xlFillDefault
        Ligne = Ligne + 1 ' Après écriture on incrémente le numéro de ligne
    End If
Next i
End Sub