Filtrer des donnés

Option Explicit
Private Sub CommandButton_FiltreDescription_Click()
Call filtrons(Sheets("Description"), 3)
End Sub

Private Sub filtrons(flfiltre As Worksheet, ncoltest As Long)
Dim nligdata As Long, fldata As Worksheet, nligfiltre As Long
Set fldata = Sheets("Filtered Data SAP")
nligdata = 2
Do While fldata.Cells(nligdata, ncoltest) <> ""
    nligfiltre = 2
    Do While flfiltre.Cells(nligfiltre, 1) <> ""
        If fldata.Cells(nligdata, ncoltest) = flfiltre.Cells(nligfiltre, 1) Then
            fldata.Rows(nligdata).Delete
            nligdata = nligdata - 1
            Exit Do
        End If
        nligfiltre = nligfiltre + 1
    Loop
    nligdata = nligdata + 1
Loop
End Sub