Range dans une boucle For i

Bonjour,

J'aimerais pouvoir coder un module pour comparer chaque cellules d'une colonne (il n'y a que la colonne A de toutes façons) et colorer l'intérieur des cellules dont la valeur est identique. Voila ce que j'ai tenté :

Sub Colorer_les_cellules_identiques()

    Dim nombre_de_cellules As Long
    Dim indice_de_couleur As Integer

        nombre_de_cellules = WorksheetFunction.CountA(Range("A:A"))
        indice_de_couleur = 1

            For i = 1 To nombre_de_cellules - 1

                For j = i + 1 To nombre_de_cellules

                    If Range("Ai").Value = Range("Aj").Value Then
                    Range("Ai").Interior.ColorIndex = indice_de_couleur And Range("Aj").Interior.ColorIndex = indice_de_couleur And indice_de_couleur = indice_de_couleur + 1
                    End If

                Next

            Next

End Sub

Apparemment le problème vient de

Range("Ai")

et de

Range("Aj")

La méthode que j'utilise est donc de prendre la première cellule puis de la comparer avec toutes les autres, refaire ça avec la deuxième cellule et ainsi de suite. J'aimerais résoudre le problème de la partie que j'ai codée plutôt que de demander une autre solution (même si plus pratique).

Merci d'avance

Bonjour,

Mettre

Range("A" & i)

Range("A" & j)

A+

Merci