Bonjour*
En cherchant un peu tu aurais pu essayer ceci
Private Sub Workbook_Open()
With Sheets(1)
Set zone = .Range(.Cells(3, 2), .Cells(.UsedRange.Cells(3, 1).End(xlDown).Row, 2))
For Each i In zone
If i.Offset = Date Then
phrase = phrase & i.Offset(0, -1) & Chr(13)
End If
Next
If phrase <> "" Then phrase = "C'est l'anniversaire de: " & Chr(13) & phrase: MsgBox phrase
End With
End Sub