Function FileExists(sPathFile) ' reader Dim oFSO Set oFSO = CreateObject("Scripting.fileSystemObject") ' retour FileExists = oFSO.FileExists(sPathFile) ' nettoyage Set oFSO = Nothing End Function