Private Sub ListBox3_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
' A REVOIR !!!!!!!!determiner le parent des cells absolument !!!!!!!!!!!!!!!!!!!!!'
Dim TheLine As Integer
TheLine = Sheets("SUIVI_IN-OUT").Range("A10000").End(xlUp).Row + 1
With Me.ListBox3
Cells(TheLine, 1) = .Column(0, .ListIndex) ' Nom Fichier // Theline, cellule de destination : Colunn: colonne des données a prendre
Cells(TheLine, 2) = .Column(1, .ListIndex) ' Type de fichier
Cells(TheLine, 3) = .Column(3, .ListIndex) ' Indice
Cells(TheLine, 4) = .Column(2, .ListIndex) ' description
End With
End Sub