Voila mon code :

Open CheminText For Input As #1
Do While Not EOF(1)
Input #1, ligne
Texte = Texte + ligne
Loop
Close #1

le probleme c'est que si je lis un fichier texte qui contient des virgules l'input fera comme si c'etait un retour chariot :'(

donc :

bonjour, comment vas-tu ?
<=>
bonjour
comment vas-tu ?

comment faire pour résoudre ce problème ???

Utiliser l'API ReadFile.

Dim hOrgFile as Long
Dim sizeFile as Long
Dim strFile As String

'Récupère un Handle pour manipuler le flux mémoire du fichier
hOrgFile = CreateFile(Chemin, _
GENERIC_READ, _
0, _
ByVal 0&, _
OPEN_EXISTING, _
0, _
0)

'Taille du fichier
sizeFile = GetFileSize(hOrgFile, 0)

'Initialise le pointeur sur le fichier
SetFilePointer hOrgFile, 0, 0, FILE_BEGIN

strFile = Space(sizeFile)

'Charge le contenu du fichier en mémoire dans la variable strFile
ReadFile hOrgFile, ByVal strFile, sizeFile, Ret, ByVal 0&

'Ferme le fichier
CloseHandle hOrgFile

Ce code n'est qu'un petit exemple succint...
Documente toi sur les API pour voir la valeur des constantes ou va voir ma source sur ce site sur ReadFile API

Bon courage

ou bien, dans ton code, tu remplaces

Input #1, ligne

par

Line Input #1, ligne

Merci bq ;)
Vive line input !!