Erreur : type défini par l'utilisateur non défini

Bonjour

En reprenant un code pour avoir un suivi des modifications, j'obtiens l'erreur type défini par l'utilisateur non défini or je n'ai pas changé le codage.

Est ce ce code ou y a t il interférence avec le reste des macros ?

Public Function AjouterAuFichierTexte(ContenuAAjouter As String, CheminFichier As String)

Dim oFSO As FileSystemObject, oFS As TextStream
Set oFSO = New FileSystemObject
Set oFS = oFSO.OpenTextFile(CheminFichier, ForAppending)
oFS.WriteLine ContenuAAjouter
oFS.Close
Set oFS = Nothing
Set oFSO = Nothing

End Function