Sub JoursFerie()
Dim a, i As Byte, c, Prem, DatEng, j As Long, MaDate As String
With Sheets("Feuil1")
a = .Range("Q2:Q14")
End With
For i = LBound(a) To UBound(a)
With [calend]
'MsgBox [calend].Cells(1, 1)
'MsgBox CDate(a(i, 1))
'MsgBox Replace(Format(CDate(a(i, 1)), "ddd dd"), ". ", " ")
'mes différents essais
'Set c = .Find(a(i, 1), LookIn:=xlFormulas, lookat:=xlWhole)
'Set c = .Find(CDate(a(i, 1)), LookIn:=xlFormulas, lookat:=xlWhole)
'Set c = .Find(Format(CDate(a(i, 1)), "ddd dd"), LookIn:=xlFormulas, lookat:=xlWhole)
'Set c = .Find(Replace(Format(CDate(a(i, 1)), "ddd dd"), ". ", " "), LookIn:=xlFormulas, lookat:=xlWhole)
'Set c = .Find(Format(CDate(a(i, 1)), "ddd dd"), LookIn:=xlFormulas, lookat:=xlWhole)
'Set c = .Find(a(i, 1), LookIn:=xlValues, lookat:=xlWhole)
'Set c = .Find(CDate(a(i, 1)), LookIn:=xlValues, lookat:=xlWhole)
'Set c = .Find(Format(CDate(a(i, 1)), "ddd dd"), LookIn:=xlValues, lookat:=xlWhole)
'Set c = .Find(Replace(Format(CDate(a(i, 1)), "ddd dd"), ". ", " "), LookIn:=xlValues, lookat:=xlWhole)
'Set c = .Find(Format(CDate(a(i, 1)), "ddd dd"), LookIn:=xlValues, lookat:=xlWhole)
DatEng = Array("lun$mon", "mar$tue", "mer$wed", "jeu$thu", "ven$fri", "sam$sat", "dim$sun")
MaDate = Replace(Format(a(i, 1), "ddd dd"), ".", "")
For j = LBound(DatEng) To UBound(DatEng)
MaDate = Replace(MaDate, Left(DatEng(j), 3), Right(DatEng(j), 3))
Next j
Set c = .Find(MaDate, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
'--suite de mon code
c.Interior.ColorIndex = 3
End If
End With
Next i
End Sub