VBA macro excel end if sans le bloc if

Bonjour,
J'ai une erreur assez classqiue "end if sans le bloc if" que je n'arrive pas à corriger. Voici le code:
(j'ai une erreur de fin de boucle aussi selon comment je tourne le code)

im Cel As Range 
Dim ligne As Integer 
ligne = 1 
While (ligne < 500) 
Set Cel = Rows(ligne).Find("ANGLES") 
If Not (Cel Is Nothing) Then 
 For pointeur = 1 To 13 
 pointeur = ligne 
 Rows(pointeur).Delete 
 pointeur = pointeur + 1 
End If 
Next 
ligne = ligne + 1 

Wend 

End Sub

Pour simplifier voici un autre code avec la même erreur (enfin je pense):

Sub test40() 
Dim test As Integer 
ligne = 1 
If (test = 1) Then 
While (test = 1) 
test = test + 1 

test = test + 2 
End If 
Wend 
End Sub

Je suis vraiment perdu.....

Merci