Sub verifdoublon_New()
Dim i&, c As Range, Ob As String
If Saisie_New.T1 <> "" And Saisie_New.Cb1 <> "" Then
For Each c In Feuil1.Range("C:C").SpecialCells(xlCellTypeConstants)
If c = CDate(Saisie_New.T1) And c.Offset(0, 1) = Saisie_New.Cb1 And c.Offset(0, 2) = Saisie_New.Cb2 Then
Ob = ""
If Saisie_New.OpBt1 Then Ob = UCase(Saisie_New.OpBt1.Caption)
If Saisie_New.OpBt2 Then Ob = UCase(Saisie_New.OpBt2.Caption)
If Ob = c.Offset(0, 15) Then
ok = 1
MsgBox "Déjà enregistré, modifier la date!", vbCritical, "Archive Base de Données"
'Saisie_New.T1 = ""
Exit Sub
End If
End If
Next
End If
End Sub