dim Ligne as string 'ouverture fichier open "c:\text1.txt" for input as #1 'lecture de la premiere ligne du fichier line input #1,Ligne if left(ligne,1)="T" then 'récupère la premiere lettre msgbox "TOTO" elseif left(ligne,1)="M" then msgbox "MAMAN" end if 'fermeture fichier close #1