'--- valeurs initiales dans ListBox
Dim r As Range, n&
For Each r In rng.Rows
If Not r.Hidden Then n = n + 1
Next r
Dim Tbl(): ReDim Tbl(1 To n, 1 To Ncol + 1)
n = 0
For i = 1 To UBound(BD)
If Not rng.Rows(i).Hidden Then
n = n + 1
C = 0
For Each k In colVisu
C = C + 1: Tbl(n, C) = BD(i, k)
Next k
C = C + 1: Tbl(n, C) = i + Decal
Tbl(n, 5) = Format(Tbl(n, 5), "0# ## ## ## ##")
End If
Next i