Erreur fonction VBA

Bonjour,

je suis navré de fournir un titre si peu clair mais j'ai du mal à expliquer. J'ai un script qui récupère une liste d'un classeur excel et qui doit créer un fichier pour chaque ligne. Pour la création du fichier, j'ai une fonction trouvée sur internet qui fonctionne quand les arguments sont écrits dedans. Cependant, cela ne fonctionne pas si je passe des paramètres à la fonction.

Sub CreationFichierUrl()

Dim Dest As String
Dest = InputBox("Insérez le dossier de destination.")
If Dest = "" Then
MsgBox ("Veuillez indiquer un dossier de destination !")
GoTo fin
End If

Dim i As Integer
Dim Dossier As String
Dim Titre As String
Dim Lien As String
Dim Supp As String
Dim TexteFichier As String
Dim DestFichier As String

Sheets("ListeTraitee").Activate

For i = 2 To 10
Dossier = Cells(i, 1)
Titre = Cells(i, 2)
Lien = Cells(i, 3)
Supp = Cells(i, 4)

TexteFichier = "[{000214A0-0000-0000-C000-000000000046}]\nProp3=19,2\n[InternetShortcut]\nURL=" & Lien & "IDList="

'LIGNE DE L'ERREUR : "= expected"
CreateAFile(Dest, Titre, TexteFichier)
Next

fin:

End Sub
Function CreateAFile(Dest, Titre, TexteFichier)
Set Fs = CreateObject("Scripting.FileSystemObject")
Set a = Fs.CreateTextFile(Dest & Titre & ".url", True)
a.WriteLine (TexteFichier)
a.Close
End Function