Sub Ouverture_du_fichier()
Dim textline As String
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
Dim vrtSelectedItem As Variant
Dim T() As String
T = Split(textline, "~")
With fd
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems
Open vrtSelectedItem For Append As 1
Line Input #1, textline
Split(Split(textline, "~255 ")(1), "~")(0)
Next vrtSelectedItem
Else
End If
End With
Set fd = Nothing
End Sub