Colorer une plage de cellule en fonction d'une autre.

[damasius]

Bonjour,
Mon problème est le suivant, je fait un tri automatique de mes données ensuite je fais une recherche des doublons. Une fois les doublons repérés je cherche si les propriétés sont les mêmes.
Exemple:
Colonne A Colonne B
a b
a
a

a
a
a

a
a
a d
a

En faite c'est le background des colonne qui est coloré.
Le code suivant colorie bien la colonne A mais la colonne B n'est coloré

Sub Recherche_Différence()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

Dim L As Integer 'Ligne
Dim i As Integer 'parcoureur des colonne

For i = 1 To 20 Step 1 'on va s'arreter à la colonne 20
For L = 2 To [A65000].End(xlUp).Row 'sue deux colonne
If Cells(L, 1) = Cells(L + 1, 1) And Cells(L + 1, 1).Value <> "" Then
Range(Cells(L, 1), Cells(L + 1, 1)).Select
With Selection.Interior
.ColorIndex = 4
.Pattern = xlSolid
End With

If Cells(L, 1 + i) <> Cells(L + 1, 1 + i) Then
'Range(Cells(L, 1 + i), Cells(L + 1, 1 + i)).Select
Range(Cells(L, 1), Cells(L + 1, 1 + i)).Select
With Selection.Interior
.ColorIndex = 4
.Pattern = xlSolid
End With
End If

End If
Next L
Next i
End Sub