Sub ChercheDate()
Dim c As Range, dat As Date
On Error Resume Next 'si aucune SpecialCell
With [J:J].SpecialCells(xlCellTypeVisible)
For dat = Int(Application.Min(Date, Application.Max(.Cells))) To Int(Application.Min(.Cells)) Step -1
Set c = .Find(dat, , xlFormulas, xlPart, , IIf(dat = Date, xlNext, xlPrevious))
If Not c Is Nothing Then
c.Select 'pour tester
Exit For
End If
Next
End With
End Sub