XL 2013 Comparer plage de cellules Feuil1 avec plage de cellules Feuil2

Sub ComparerDates2()
O1 As Worksheet, O2 As Worksheet
Dim PL1 As Range, PL2 As Range
Dim CEL1 As Range, CEL2 As Range

Set O1 = Worksheets("Feuil1")
Set O2 = Worksheets("Feuil2")
Set PL1 = O1.Range("A2:A14")
Set PL2 = O2.Range("A2:A23")
For Each CEL1 In PL1
    For Each CEL2 In PL2
        If CEL1.Value = CEL2.Value Then
            CEL2.Interior.ColorIndex = 18: Exit For
        Else
            CEL2.Interior.ColorIndex = xlNone
        End If
    Next CEL2
Next CEL1
End Sub

Set xlwbk = ThisWorkbook
Set Rng = Worksheets("Feuil1").Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)

With Worksheets("Feuil2").Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)
    .Offset(0, 1).ClearContents
    For Each cell In Rng
    Set Rng1 = .Find(What:=cell, _
                After:=.Cells(.Cells.Count), _
                LookIn:=xlFormulas, _
                LookAt:=xlWhole, _
                SearchOrder:=xlByRows, _
                SearchDirection:=xlNext, _
                MatchCase:=False)
        If Not Rng1 Is Nothing Then
            FirstAddress = Rng1.Address
            Do
            Rng1.Offset(0, 1).Value = "X"
            Rng1.Interior.ColorIndex = 18
            Set Rng1 = .FindNext(Rng1)
            Loop While Not Rng1 Is Nothing And Rng1.Address <> FirstAddress
        End If
    Next cell
End With

Sub ComparerDates2()
Dim OD As Worksheet, OM As Worksheet ' déclare les variables OD Onglet Donnees) et OM (Onglet du Mois)
Dim PLD As Range, PLM As Range 'déclare les variables PLD (Plage des Donnees) et PLM (PLage du Mois)
Dim CD As Range, CM As Range 'déclare les variable CM (cellules des Donnees) et CM (Cellule du Mois)

Set OD = Worksheets("donnees") 'définit l'onglet OD
Set OM = Worksheets("nov") 'définit l'onglet OM
Set PLD = OD.Range("A2:A" & OD.Cells(Application.Rows.Count, "A").End(xlUp).Row) 'définit la plage PLD
Set PLM = OM.Range("A2:A" & OM.Cells(Application.Rows.Count, "A").End(xlUp).Row) 'définit la plage PLM
PLM.Interior.ColorIndex = xlNone 'supprime une éventuelle couleur dans la plage PLM
For Each CD In PLD 'boucle 1 : sur toutes les cellule CD de la plge PLD
    For Each CM In PLM 'boucle 2 : sur toutes les cellule CM de la plge PLM
        If CD.Value = CM.Value Then 'condition : si les dates sont identiques
            CM.Interior.ColorIndex = 18: Exit For 'colore la celllule CM et sor de la boucle 2
        End If 'fin de la condition
    Next CM 'prochaine cellule de la boucle 2
Next CD 'prochaine cellule de la boucle 1
End Sub