[Macro Excel] Incompatibilité de type dans un

Bonjour à tous
Je suis loin d'être expert en VB et une de mes macros qui fonctionnait bien jusqu'à présent se met a m'envoyer un "Incompatinilité de type".

La macro est faite pour récupérer sur chaque ligne une série de caractères en ASCII, les fragmenter et les remettre en bon ordre (nom, prénom...), puis passer à la ligne d'après.

Elle plante en ligne "Do While Range("A" & cpt) <> "0""

Voici la macro ci dessous :

Sub rejets()

Dim cpt As Integer

cpt = 7

Do While Range("A" & cpt) <> "0"
montant = Right(Range("A" & cpt), 12)
coderej = Left(Right(Range("A" & cpt), 14), 2)
nom = Left(Right(Range("A" & cpt), 142), 24)
dateoper = Right(Left(Range("A" & cpt), 16), 6)
numcli = Right(Left(Range("A" & cpt), 188), 5)
Range("A1") = nom
If (nom < "A") Then
Range("B" & cpt) = ""
cpt = cpt + 1
End If
If (nom > "A") Then
Range("B" & cpt) = nom
Range("C" & cpt) = coderej
Range("D" & cpt) = montant
Range("E" & cpt) = dateoper
Range("F" & cpt) = numcli
cpt = cpt + 1
End If

Loop

End Sub