Private Sub Workbook_Open()
flag = 0
texte = "Bonne Anniversaire à "
For i = 2 To Sheets("Feuil2").Range("A65535").End(xlUp).Row
If Day(Sheets("Feuil2").Cells(i, 1)) = Day(Date) And Month(Sheets("Feuil2").Cells(i, 1)) = Month(Date) Then
texte = texte & Sheets("Feuil2").Cells(i, 2) & " et à "
flag = 1
End If
Next i
texte = Left(texte, (Len(texte) - 6))
If flag = 0 Then texte = "PAS D'ANNIVERSAIRE AUJOURD'HUI"
Sheets(1).[A2] = texte
Application.Speech.Speak [A2]
End Sub