Sub Test()
'********************************
'* DECLARATIONS DES VARIABLES *
'********************************
Dim i%, j%, Dl%, Dc%
Dim Ws As Worksheet
'********************************
'* INITIALISATION DES VARIABLES *
'********************************
Set Ws = Sheets("TABLEAU_ORIGINAL")
Dl = Ws.Range("A" & Rows.Count).End(xlUp).Row - 2 'Dernière ligne vide - 2 depuis le bas(Ligne en bleu & ligne "Comparer les cellules ...")
Dc = Ws.Cells(1, Columns.Count).End(xlToLeft).Column 'Dernièere colonne depuis la droite
For i = Dl To 3 Step -1 'Je boucle de la dernière ligne jusqu'à la ligne 3 par pas de 1 (-1, je remonte d'une ligne à chaque boucle)
For j = 2 To Dc 'Je boucle sur les colonnes de la ligne
If Ws.Cells(i, j).Value <> "" Then 'Si la cellule n'est pas vide
If Ws.Cells(i, j).Value = Ws.Cells(i - 1, j) Then 'Si la valeur de la cellule est égale à la valeur de la cellule de la ligne du dessus
Ws.Cells(i - 1, j).Interior.Color = RGB(0, 255, 0) 'Je la colorie en vert
End If
End If
Next j
Next i
End Sub