aide en vba excel

Bonjour a tous,

Je viens vers vous car je debute sous excel/ vba.
j'explique ce que je veux faire :
j'ai une page qui contient un tableau avec deux colonnes.
premiere colonne valeur non numerique et deuxieme colonne une valeur numerique
moi je souhaite faire un tri, si la ligne est vide supprimer la ligne ensuite si une cellule de la colonne deux ne comporte pas une valeur numerique couper la ligne dans une autre feuille nommé rejet1.
ensuite si une cellule de la colonne 2 ne comporte pas 7 chiffres couper la ligne dans une autre feuille nommé rejet2.

j'avais commencé ça :
Private Sub mat_Click()
Sheets("SOURCES").Select

LigneFeuille2 = 1

NbLignes = 10
For i = 1 To NbLignes

If IsNumeric(Cells(i, 2)) = True Then
If Len(Cells(i, 2)) <> "6" Then
Cells(i, 2).EntireRow.Cut
Sheets("REJET2").Select
Cells(LigneFeuille2, 1).EntireRow.Select
ActiveSheet.Paste
Sheets("Feuil1").Select
LigneFeuille2 = LigneFeuille2 + 1
NbLignes = NbLignes - 1
End If
Else
Cells(i, 2).EntireRow.Cut
Sheets("REJET1").Select
Cells(LigneFeuille2, 1).EntireRow.Select
ActiveSheet.Paste
Sheets("Feuil1").Select
LigneFeuille2 = LigneFeuille2 + 1
NbLignes = NbLignes - 1
End If

Next i

End Sub


Pouvez vous m'aider. Merci d'avance