Do while

Option Explicit
Dim I As Integer
Public MaDate As Date
Dim PremJour As Date
Dim FlgFind(2) As Boolean
Function Suivante()
  ' Si la date suivante se trouve soit dans la colonne S11 soit dans T11 ou les 2 lancer la fonction Anniversaire
  On Error Resume Next
  I = 1
  PremJour = MaDate
  PremJour = PremJour + 1
  Do While Day(PremJour) & Month(PremJour) <> Day(MaDate) & Month(MaDate)
    Do While Range("[Car]Fichier!A11").Offset(I, 0) <> ""
      ' Mettre les FLAG à FAUX
      FlgFind(1) = False: FlgFind(2) = False
      ' Tester chaque cellule
      If Range("[Car]Fichier!S11").Offset(I, 0) <> "" Then
        If Day(Range("[Car]Fichier!S11").Offset(I, 0)) & Month(Range("[Car]Fichier!S11").Offset(I, 0)) = Day(PremJour) & Month(PremJour) Then
          MaDate = PremJour
          Anniversaire
          FlgFind(1) = True ' Flag date trouvée en S11
        End If
      End If
      If Range("[Car]Fichier!T11").Offset(I, 0) <> "" Then
        If Day(Range("[Car]Fichier!T11").Offset(I, 0)) & Month(Range("[Car]Fichier!T11").Offset(I, 0)) = Day(PremJour) & Month(PremJour) Then
          MaDate = PremJour
          Anniversaire
          FlgFind(2) = True ' Flag date trouvée en T11
        End If
      End If
      ' Sort de la fonction si date trouvée
      If FlgFind(1) = True Or FlgFind(2) = True Then Exit Function
      I = I + 1
    Loop
    I = 1
    PremJour = PremJour + 1
  Loop
End Function