Option Explicit
Sub test()
Dim d As Date, c As Range
d = InputBox("saisissez une date !!!")
If IsDate(d) Then
Set c = Range("A:A").Find(d, , xlValues, xlWhole, , , False)
If Not c Is Nothing Then MsgBox "Pour le : " & d & vbLf & _
"c'est la constellation : " & c.Offset(0, 1).Value
End If
End Sub