VBA : Erreur 13 aléatoire sur variable

Bonjour,

déjà désolé de ne pas fournir le classeur avec, il aiderait certainement pour la compréhension du problème. J'explique donc :
C'est un test pour éliminer sur 147 lignes des valeurs aberrantes calculées. Si le calcul donne plus que 3.5 (variable limite EEQ) 7 cellules sont effacées, le calcul est mit à jour et on passe à la ligne suivante, ceci sur 6 zones.

Voici pour la première zone les formules des cellules (qui sont toutes au format standard) :

AL : =SI(ESTNUM(N11);Q11-$AL$9;"")
AM : =SI(ESTNUM(N11);ABS(AL11);"")
AN : calculée par la première partie de la macro en copier/coller/trier
AO : =SI(ESTNUM(N11);(0,6745*(Q11-MOYENNE($Q$2:$Q$65536))/$AN$9);"")
AP : =SI(ESTNUM(N11);ABS(AO11);"")

Le problème est que j'ai aléatoirement une "erreur 13". J'ai essayé de déclarer testEEQ de plein de façons différentes mais rien à faire, pareil en changeant les formats de cellules.
Est ce que c'est parce qu'il y a une formule "masquant" les #VALEUR que ma variable crée des problèmes ? Ou parce que je la réutilise trop souvent sans lui redonner une valeur fixe genre testEEQ=1 à chaque fin de ligne ?

Voici donc le code ci dessous... Je remercie d'avance ceux qui trouveront la solution ou me donneront des idées.



Option Explicit
Sub ElimaberrEEQ()

Dim ligne As Integer
Dim testEEQ As String
Const limiteEEQ = 3.5

' tri et collage de valeurs pour mettre à jour la formule en AN10 : pas de problèmes

Range("AM10").Select
Range(Selection, Selection.End(xlDown)).Copy
Range("AN10").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Sort Key1:=Range("AN10"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers

' déclaration de mon compteur de ligne qui va de 10 à 147

ligne = 10
350

'contenu Ap entré dans ma variable test (plante desfois)

testEEQ = Range("AP" & ligne)

'si > 3 effacer la valeur aberrante (plante souvent)
If Abs(testEEQ) > limiteEEQ Then Range("Q" & ligne).Clear

'idem pour suite de la ligne
If Abs(testEEQ) > limiteEEQ Then Range("AL" & ligne, "AQ" & ligne).Clear
' compteur classique
ligne = ligne + 1
If ligne = 147 Then GoTo 360
GoTo 350
360

' Et on continue avec les 5 autres zones...

Range("AS10").Select
Range(Selection, Selection.End(xlDown)).Copy
Range("AT10").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Sort Key1:=Range("AT10"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
ligne = 10
370
testEEQ = Range("AV" & ligne)
If Abs(testEEQ) > limiteEEQ Then Range("R" & ligne).Clear
If Abs(testEEQ) > limiteEEQ Then Range("AR" & ligne, "AW" & ligne).Clear
ligne = ligne + 1
If ligne = 147 Then GoTo 380
GoTo 370
380