Option Explicit
Sub Macro1()
Dim nblgn1 As Byte, nblgn2 As Byte, plage1 As Range, plage2 As Range, cel1 As Range, cel2 As Range
Dim nbrLgn As Integer, i As Integer
nblgn1 = Application.CountA([ListeItems2].Columns(1)) 'nombre de lignes non vides de la 1ère colonne du tableau "ListeItems2"
Set plage1 = [ListeItems2].Columns(1).Resize(nblgn1) 'plage des lignes non vides de la 1ère colonne du tableau "LiteItems2"
nblgn2 = Application.CountA([ListeItems3]) 'nombre de lignes non vides du tableau "ListeItems3"
Set plage2 = [ListeItems3].Resize(nblgn2) 'plage des lignes non vides du tableau "LiteItems3"
nbrLgn = plage1.Rows.Count
Application.ScreenUpdating = False
For i = 1 To nbrLgn
If plage1.Rows(i).Value = plage2.Rows(i).Value Then
With plage1.Rows(i)
.Interior.Color = plage2.Rows(i).Interior.Color
.Font.Color = plage2.Rows(i).Font.Color
End With
End If
Next
Application.ScreenUpdating = True
End Sub