Private Sub c1_Change()
Dim AutoFilterMode As Boolean, tbl
Dim Cel As Range, firstAddress As String, c As Byte, L As Long, Ld As Long, Lf As Long, nbL As Long
Me.ListBox1.Clear
With Worksheets("Données_mini_maxi")
.Range("A1:A" & .Cells(Rows.Count, "a").End(xlUp).Row).NumberFormat = "yyyy"
Set Cel = .Columns(1).Find(CDbl(C1), LookIn:=xlValues)
If Not Cel Is Nothing Then
firstAddress = Cel.Address
Ld = Cel.Row: Lf = Ld - 1
Do
Lf = Lf + 1
nbL = nbL + 1
Set Cel = .Columns(1).FindNext(Cel)
Loop While Not Cel Is Nothing And Cel.Address <> firstAddress
End If
.Range("A2:A" & .Cells(Rows.Count, "a").End(xlUp).Row).NumberFormat = "dd/mm/yyyy"
ReDim tbl(1 To nbL, 1 To 39)
nbL = 0
For L = Ld To Lf
nbL = nbL + 1
For c = 2 To UBound(tbl, 2)
tbl(nbL, c) = .Cells(L, c).Text
Next
Next
End With
Me.ListBox1.List = tbl
End Sub