Private Sub Btn_Mport_Click()
Dim Texte As String, Numfile As Integer
Dim Compteur As Integer
Numfile = FreeFile
Compteur = 1
Open "c:\param.sds" For Input As Numfile ' ouverture du fichier
Do While Not EOF(Numfile) ' faire tant que pas à la fin du ficheir texte
Input #Numfile, Texte
Feuil2.Cells(Compteur, 2).Value = Texte
Compteur = Compteur + 1
Loop
Close #Numfile
MsgBox "Paramètres Chargés !", vbInformation + vbOKOnly, "Succès..."
End Sub