Salut,
voila ce que je fais et ca marche
Dim LFile As Long 'Lecture
Dim OFile As String 'Fichier à ouvrir
Dim Ligne As String 'Ligne
Dim site
OFile = Dir1 & "\" & File1
LFile = FreeFile
Open OFile For Input As #LFile
'Do 'début de boucle
Input #LFile, Ligne
site = Mid(Ligne, InStr(1, Ligne, "=") + 1, Len(Ligne))
Text1.Text = Text1.Text & vbNewLine & Ligne
'Loop Until EOF(LFile)
cboURL.Text = site
Merci
bucheron a+