Public Sub Filtrer(ByVal Colonne As Variant, ByVal Valeur)
Dim VCol(), L As Long, N As Long
CorrigerColonne Colonne, "Filtrer": VCol = PlgTablo.Columns(Colonne).Value
ReDim TLgnFlt(1 To UBound(VCol, 1))
For L = 1 To UBound(VCol, 1)
If VCol(L, 1) = Valeur Then N = N + 1: TLgnFlt(N) = L
Next L
'If N = 0 Then AfficherTout: Exit Sub
If N = 0 Then Erase TLgnFlt: Préfiltré = False: Exit Sub
ReDim Preserve TLgnFlt(1 To N)
Préfiltré = True: CBM_Change TCBM(1)
End Sub