Comment inclure une condition dans ma macro???

Voici mon problème,
J'ai un tableau avec une longue liste de matériel associé à des fournisseurs. Je veux qu'une fois mon tableau complété, je puisse obtenir tout les fournisseurs ou j'aurai des items à commander et qu'ils apparaissent, en ordre alpha.
J'ai réussi à faire une partie de l'équation mais je n'arrive pas à placer ma condition pour avoir seulement les fournisseurs avec des items à commander. Le point de vérification serait la colonne "quantités". Si la quantité est >0 .... Pour le moment, la macro me donne tout les fournisseurs .... voici la macro...

Sub Fournisseurs_sans_doublon()
'
' Copie fournisseur sans doublon
'
' Touche de raccourci du clavier: Ctrl+a
'
Sheets("master").Select
Range("B2:B21").Select
Selection.Copy
Range("M2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("master").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("master").Sort.SortFields.Add Key:=Range("M2"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("master").Sort
.SetRange Range("M2:M21")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveSheet.Range("$M$2:$M$21").RemoveDuplicates Columns:=1, Header:=xlNo
Range("R2").Select

End Sub

Merci à l'avance...