recherche plusieur date une seul cellule

bonjour !
voila je suis devant une impasse , avec l'aide du forum et l'orientation des membres j'ai pu réaliser ce code qui me permet de faire apparaitre un message 2 jour avant , et il fonctionnent très bien seulement quand il ya une seul date dans la cellule mais pas quand il ya plusieurs date dans la cellule séparant avec ( ; ) .
je ne c'est pas comment procéder !!!!!



code:

Sub thedate()
Dim TheDate As String, Index As Variant
Dim T As Variant, MyDate As String

TheDate = Format((Date + 2), "dd/mm/yyyy")

T = Range("Feuil2!H1:H65000")

Index = Application.Match(TheDate, T, 0)

If IsError(Index) Then
MsgBox "Résultat négatif. Rien trouvé.", vbOKOnly + vbInformation, "Résultat"
Else

MsgBox "La Prochaine Date : " & TheDate & " existe. Elle est représentée par " & _
"l'item " & Index & " du tableau." & " N° :" & Cells(Index, 24), vbInformation + vbOKOnly, "Résultat"
End If
Erase T
End Sub