Mettre la valeur d'une cellule range() dans une variable

Bonjour à tous,
J'avais un peu abandonné le développement et puis cela me reprends mais je bute sur le plus simple :
CTR = A3 pas de problème
si je fais : Range("J" & ligne-1) = CTR pas de problème mais si je fais :
CTR = Range("J" & ligne) avec ou sans .value, message "incompatibilité de type
Mon code :
' Séparateur de catégorie
'
Dim ligne As Integer
Dim CTR As Integer
Dim Gris As Integer
Gris = 0
CTR = Range("J2").Value
For ligne = 3 To 60 'pour examiner les lignes 2 à xCarton,

If Range("A" & ligne) <> Range("A" & ligne - 1) Then 'IF UN
' On Change de Catégorie
Range("B" & ligne - 1) = CTR 'Sous Total
Range("J" & ligne).Select 'On change de catégorie
CTR = ActiveCell.Value() --> message " incompatibilité de Type"

Merci pour votre aide. JP