Traiter une par une les dates contenue dans une cellule

Bonjour,

Pourriez-vous me dire comment faire pour traiter une par une, les dates contenue dans une cellule sous cette forme :

Cellule A2 = "01/01/2011,05/11/2011,01/02/2011"

Ce que j'aimerais c'est pouvoir faire une boucle de la première date à la dernière contenue dans cette cellule

Exemple :
Code:

1 2 3 4 5 For i = premièreDate To dernièreDate For j = 2 To dernièreLigne If .Range("b" & j) = i Then .Rows.ClearContents Next Next
Dans cet exemple il y a 3 boucles, car il y trois dates contenue dans la cellule A2.

Merci par avance pour votre aide.

J'ai supprimé mes deux réponses que je pense, erronées, et propose ce code que cette fois, j'ai testé.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Public Sub MACRO3()
 
Dim LastLig As Long
Dim DatesCel, i As Long, j As Long
DatesCel = Split(Range("A2"), ",", -1)
LastLig = Range("B" & Rows.Count).End(xlUp).Row
For i = 0 To UBound(DatesCel) - 1
  For j = LastLig To 2 Step -1
    If CDate(Range("B" & j)) = CDate(DatesCel(i)) Then Rows(j).ClearContents
  Next j
Next i
End Sub

Merci !! :ccool: