Private Sub CommandButton1_Click()
Dim Text As Range
For Each Text In ActiveSheet.Range("Tableau1") 'codename(Feuil1)
For I = 0 To Me.ListBox1.ListCount - 1
If Text.Value = Me.ListBox1.List(I, 0) Then
Range("S" & Text.Row) = Me.ListBox1.List(I, 0)
Range("T" & Text.Row) = Me.ListBox1.List(I, 1)
End If
Next
Next Text
Me.ListBox1.Clear
Unload Me
End Sub