Re,
Pas fait gaffe qu'il y avait un astérisque... Ah ces sacrés Gaulois
A tester
Private Sub ComboBox1_Change()
Dim Ind As Long, Col As Long
' Si saisie vide
If Me.ComboBox1 = "*" Then Call UserForm_initialize : Exit Sub
' Sinon
' Colonne des dates
Col = Range("AM1").Column - 1
' Pour chaque ligne de la ListBox de la fin au début
For Ind = ListBox1.ListCount - 1 To 0 Step -1
' Si la date est différente
If Me.ListBox1.List(Ind, Col) <> DateValue(Me.ComboBox1) Then
' supprimer la ligne
Me.ListBox1.RemoveItem (Ind)
End If
Next Ind
End Sub
@+