Sub Verifdoublon()
'Déclaration ================================================
Dim Cel As Range
Dim Plage_T As Range
Dim Lieu As String
Dim Colp As String
Dim Jour As Date
Dim Soirée As String
Dim Début As Date
Dim Fin As Date
'MEI =========================================================
With Workbooks("Console colporteurs.xlsm").Sheets("Archives")
Lieu = .Range("D2")
Colp = .Range("K2")
Jour = .Range("C2")
Soirée = .Range("I2")
'Début = .Range("G2")
'Fin = .Range("H2")
Début = Format(Range("G2").Value, "h:mm:ss; @")
Fin = Format(Range("H2").Value, "h:mm:ss; @")
End With
Workbooks("Colporteursarchives.xlsb").Activate
Sheets("Archives").Activate
Set Plage_T = Range([Q1], [A65536].End(xlUp))
'Plage de travail A/Q, 1/dernière en A ****
'effacement des couleur =========================
Plage_T.Interior.ColorIndex = xlNone
'Premier test doublons ===========================
ActiveSheet.AutoFilterMode = False
'on désactive le mode filtre auto
Plage_T.AutoFilter Field:=3, Criteria1:=Jour 'Colonne C
Plage_T.AutoFilter Field:=7, Criteria1:=Début 'Colonne G