[RESOLU]Rechercher cellule contenant une date dans classeur

Sub test()
Dim X As Date
Dim Cel As Range
X = CDate(InputBox("date"))
For Each sh In Sheets
  For n = 16 To sh.Range("A65536").End(xlUp).Row
    If sh.Range("A" & n).Value = X Then
       sh.Select
       sh.Range("D" & n).Select
    End If
  Next n
Next
End Sub

Sub SelecDate()
Dim dat As Variant, w As Worksheet, cel As Range
1 dat = InputBox("Entrez une date :", "Recherche date")
If dat = "" Then Exit Sub
If Not IsDate(dat) Then GoTo 1
dat = CDate(dat)
For Each w In Worksheets
  For Each cel In w.[A16:A30]
    If cel = dat Then
      Application.Goto cel.Offset(, 1)
      Exit Sub
    End If
  Next
Next
MsgBox "Date introuvable..."
End Sub

Sub SelecDate()
Dim dat As Variant, w As Worksheet, cel As Range
1 dat = InputBox("Entrez une date :", "Recherche date")
If dat = "" Then Exit Sub
If Not IsDate(dat) Then GoTo 1
dat = CDate(dat)
For Each w In Worksheets
  For Each cel In w.[A16:A30]
    If cel = dat Then
      w.Visible = True
      Application.Goto cel.Offset(, 1)
      Exit Sub
    End If
  Next
Next
MsgBox "Date introuvable..."
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim w As Worksheet
For Each w In Worksheets
w.Visible = False
Worksheets("menu").Visible = True
Next




End Sub