Recherche de dates dans une plage de cellules

Bonjour a toutes et tous,
je travaille sur un fichier de planification avec dates et retroplanning.
sur une plage, mes cellules ont des dates et sur une ligne j'ai mon calendrier avec des dates( logique ;), )
je souhaiterais analyser la première plage , trouver les cellules contenant des dates.
a chaque date trouvée, chercher celle-ci dans ma ligne de calendrier. une fois la date trouvée, colorier la cellule en correspondance de la ligne et de la colonne trouvées avec les dates similaires.
j'ai commencé un code ci-dessous, mais ploufff voila je ne sais plus par ou m'orienter ..
serait il possible de m'aiguiller, je cherche à comprendre ces variantes..
je vous remercie d'avance et vous souhaite un bon courage dans ce confinement.
Titi1708

Sub Trouve_la_date()
Dim CibleDate As Range
Dim Recherchedate As Date
Dim RenvoieDate As Range
CibleDate = ("B6;P100")
Recherchedate = ("Q4;FES4")
RenvoieDate = ("Q6;FES100")
Set CibleDate = Cells.Find(what:=FormatDate, lookat:=xlValue)
If Not CibleDate Is Nothing Then
With Recherchedate = Cells.Find(what:=CibleDate, lookat:=xlValue).Select
Active.Offset(0, 0).Select
Selection.Range.Interior.Color = RGB(255, 0, 0)
End With

End If
End Sub