Sub Date_Sup()
Dim L As Long, Dt As Date, Auj As Date, Plage As Range, Zone As Range, T(), MeilDate As Date, MeilCel As Range
With Sheets("Code_origine")
Set Plage = .Range(.[J7], .Cells(Rows.Count, "J").End(xlUp))
End With
Auj = Date: MeilDate = DateSerial(9999, 12, 31)
For Each Zone In Plage.SpecialCells(xlCellTypeVisible).Areas
T = Zone.Value
For L = 1 To UBound(T, 1)
Dt = T(L, 1): If Dt < MeilDate And Dt >= Auj Then MeilDate = Dt: Set MeilCel = Zone(L, 1)
Next L, Zone
If Not MeilCel Is Nothing Then Application.Goto MeilCel
End Sub