Sub Happy()
If Jour_Naissance = Jour_Actuel And Mois_Naissance = Mois_Actuel Then
Do
Range("A6") = "Joyeux Anniversaire"
For t = 1 To 10000000: x = x + 1: Next t
Range("A6") = ""
For t = 1 To 10000000: x = x + 1: Next t
compte = compte + 1
Loop Until compte > 10
End If
End Sub