Private Sub Workbook_Open()
Dim strFichierTexte As String, strLine As String, strChamps() As String
Dim bytShCount As Byte, bytPlacer As Byte
strFichierTexte = Application.GetOpenFilename('Fichiers Texte,*.txt', , 'Fichier Texte', , False)
Open strFichierTexte For Input As #1
While Not EOF(1)
Line Input #1, strLine
strChamps() = Split(strLine, ';')
bytShCount = Sheets.Count
Sheets('Template').Copy After:=Sheets(bytShCount)
ActiveSheet.Name = bytShCount
For bytPlacer = 0 To 9
Select Case bytPlacer
Case 0 To 7
Cells(bytPlacer + (bytPlacer + 4), 2) = strChamps(bytPlacer)
Case 8
Cells(4, 5) = strChamps(bytPlacer)
Case 9
Cells(6, 5) = strChamps(bytPlacer)
End Select
Next bytPlacer
Wend
Close #1
End Sub