Sub filtre()
Dim Tbl(), Total As Long
début = CDate(Me.TextBox1)
fin = CDate(Me.TextBox2)
colDate = 1
NbCol = 1000
N = 0
For i = 1 To 10000
If Int(A(i, colDate)) >= début And Int(TblBD(i, colDate)) <= fin Then
N = N + 1: ReDim Preserve Tbl(1 To NbCol + 1, 1 To N)
For k = 1 To NbCol: Tbl(k, N) = TblBD(i, k): Next k
End If
Next i