Vba Excel

Bonjour,
Je travaille sur un code vba dont le but est de vérifier le contenu de cellules, en fonction de se contenu je recopie la ligne dans une autre feuille du même classeur.
Ma condition d'arrêt est quand ma premiere cellule de la ligne est vide. Je précise que le code que j'utilise a déjà été utilisé et qu'il fonctionne mais la il s'arrête sans planter; je ne peux pas aller plus loin que 2800. Néanmoins pas à pas j'arrive à l'exécuter donc je comprends pas.

Mon code est le suivant:

'anomalie slas
m = 8 'colonne 8= colonne cos
Dim q As Integer
q = m 'ligne 8 premiere ligne a comparer
j = 8

Sheets("SLAs").Select
Rows(q).Select
'Macro christophe pr copie
'Call statTopDB


While Cells(j, 1).Value <> ""
If Cells(j, 6).Value = "" Then
Cells(j, 6).Value = Cells(j - 1, 6).Value
End If
j = j + 1
Wend

Sheets("Aide").Select
Sheets.Add.Name = "Anomalies SLAs"
Sheets("SLAs").Select
Rows("1:7").Select
'Range("D1").Activate
Selection.Copy
Sheets("Anomalies SLAs").Select
Rows(1).Select
ActiveSheet.Paste
Cells(1, 6).Value = "Anomalies concernant les SLAs"
Sheets("SLAs").Select




While Cells(q, 1).Value <> ""

If Cells(q, 6).Value <> "D3" And Cells(q, 11).Value <> "" Then
If Cells(q, 11).Value >= Cells(q, 8).Value Then

Rows(q).Select
Selection.Copy
Sheets("Anomalies SLAs").Select
Rows(m).Select
ActiveSheet.Paste
Sheets("SLAs").Select
m = m + 1

ElseIf Cells(q, 13).Value <> "" And Cells(q, 13).Value >= 20 Then
Rows(q).Select
Selection.Copy
Sheets("Anomalies SLAs").Select
Rows(m).Select
ActiveSheet.Paste
Sheets("SLAs").Select
m = m + 1
End If

End If


q = q + 1

Wend