Problème pour écrire le contenu d'une cellule dans un fichier

Bonjour,

J'aurai besoin d'aide pour débugger le code ci-après.
Je souhaite prendre le contenu de la cellule AV14 et l'écrire dans le fichier "FichRes"
Je suis débutant en VBA et lorsque j'exécute ceci, le code ne lit pas ce qu'il y a après la ligne "Val = ..."

Sub FichierSensibilite()
Dim fich As String
Dim Val As String
Dim rep As Integer
Dim ouv As Integer
Dim test As Integer

'Fichier où chercher les données
fich = Fichier
ouv = FreeFile
rep = DIV_FileExists(fich)
If rep = 0 Then Exit Sub
Open Fichier For Input As ouv
Val = Sheets("DATA_ENREG").Range("AV14").Value
test = 3

'Ecrit SensiAcc1 = Val dans FichRes
rep = EcritIni("RESULTATS", "SensiAcc1", Val, FichRes)

End Sub

Merci d'avance pour votre aide.
maniqk