La méthode range de l'objet Global a échoué

Bonjour le forum

Je galère depuis hier soir sur ce problème

dans ce code

Private Sub UserForm_Activate()
Dim Montant As Integer
    ligne = ActiveCell.Row
    Cells(ligne, 10).Activate
    ligne = ActiveCell.Row
        If Cells(ligne, 6) <> "" Then
            If Cells(ligne, 7) <> "" Then 'valeurs négatives
                Montant = Range(ligne, 7).Value
            End If
            If Cells(ligne, 8) <> "" Then 'valeurs positives
                Montant = Cells(ligne, 8).Value
            End If
        TxtCC1Lib = "Date : " & Cells(ligne, 4) & Chr(10) & Chr(10) & "Libellé : " & Cells(ligne, 6) & Chr(10) & Chr(10) & "Montant : " & Montant & "€" 'TxtCC1Lib est une textbox
        End If
End Sub

Quand la valeur est positive, j'obtiens un résultat correct

Quand la valeur est négative, la méthode Range échoue.

Pouvez vous m'expliquer pourquoi cette erreur ?

J'ai trouvé la réponse au problème. J'ai remplacé range par cells !

Comme quoi, vaut mieux arrêter et reprendre plus tard