Private Sub UserForm_Initialize()
Dim i As Long, Derlig As Long, cpt As Long
'ListBox1.Clear
Derlig = Sheets("Feuil1").Cells(65536, 3).End(xlUp).Row
cpt = 0
For i = 2 To Derlig
If Cells(i, 4) <> "" Then
ListBox1.AddItem Cells(i, 4).Value
ListBox1.List(cpt, 1) = i
cpt = cpt + 1
End If
Next i
End Sub
Private Sub CommandButton1_Click()
Dim i As Integer
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
Cells(ListBox1.List(i, 1), 5) = CDate(TextBox1)
Cells(ListBox1.List(i, 1), 6) = CLng(TextBox2)
End If
Next i
Unload UserForm1
End Sub