Private Sub CommandButton1_Click()
Dim TV As Variant
Dim derlig As Integer
derlig = Feuil1.Range("a65536").End(xlUp).Row + 1
TV = Range("A1:B" & derlig)
For I = 1 To UBound(TV, 1)
If TV(I, 1) & CStr(TV(I, 2)) = Me.ComboBox1.Value & CStr(Me.TextBox1.Value) Then
MsgBox "Déjà saisi à cette date !"
Unload Me
Exit Sub
End If
Next I
Feuil1.Cells(derlig, 1).Value = ComboBox1.Value
Feuil1.Cells(derlig, 2).Value = CDate(TextBox1)
Unload Me
End Sub