Sub Filtre_Lvw_NATIFS(P As Byte)
'C = Feuil1.Range("A2:P2" & Feuil1.Range("A" & Rows.Count).End(xlUp).Row).Value
'With UserForm1.Lvw_NATIFS
' .ListItems.Clear
'For i = 2 To UBound(C, 1)
'If CStr(C(i, P)) = UserForm1.Controls("CbxDatasGo" & P) Then
'.ListItems.Add , , C(i, 1)
'lg = .ListItems.Count
'.ListItems(lg).ListSubItems.Add , , C(i, 2)
'.ListItems(lg).ListSubItems.Add , , C(i, 3)
'.ListItems(lg).ListSubItems.Add , , C(i, 4)
'.ListItems(lg).ListSubItems.Add , , C(i, 5)
'.ListItems(lg).ListSubItems.Add , , C(i, 6)
'.ListItems(lg).ListSubItems.Add , , C(i, 7)
'.ListItems(lg).ListSubItems.Add , , C(i, 10)
'.ListItems(lg).ListSubItems.Add , , C(i, 16)
'End If
'Next i
'End With
End Sub