ReDim tablo(1 To lig, 1 To col)
For i = 1 To UBound(tbl)
If tbl(i, 5) > tot Then
k = k + 1
For j = 1 To col
tablo(k, j) = tbl(i, j)
Next
End If
Next
wb.Range("h6") = k 'Nombre de factures
wb.Range("k2").Resize(UBound(tablo, 1), UBound(tablo, 2)) = tablo