Erreur dans le macro de comparaison entre deux colonnes

Bonjour,

J'ai trouvé un macro qui me permet de comparer entre les valeurs de deux colonnes (B et C).

Si elles sont différentes ---> il m'affiche "Différantes" dans la colonne C

Si elles sont égaux ---> il m'affiche "égaux" dans la colonne C

Il m'affiche qu'il y a une erreur :

Erreur d'exécution '-2147417878 (80010108)' :
La méthode 'Value' de l'objet 'Range' a échoué

Voici le Macro :

Sub Résultat()
Dim DerLig As Long, Ligne As Long
    With Worksheets("Feuil1")
        DerLig = .Range("B" & Rows.Count).End(xlUp).Row
        For Ligne = 6 To DerLig
            If Range("B" & Ligne).Value <> "" And Range("C" & Ligne).Value <> "" Then
               If Range("B" & Ligne).Value = Range("C" & Ligne).Value Then
                    Range("D" & Ligne).Value = "Égaux"
                 Else
                 Range("D" & Ligne).Value = "Différents"
                End If
            Else
                Range("D" & Ligne).Value = ""
            End If
        Next Ligne
    End With
End Sub

Aidez-moi s'il vous plaît

Merci d'avance

Comment ça marche c'est cool! 
      1000 Merci les Amis