Bonjour
Un essai à tester. Te convient-il ?
Option Explicit
Dim tabloB, tabloT, plage As Range
Dim i&, j&, flag&
Private Sub Worksheet_Activate()
tabloB = Sheets("Base").Range("A3").CurrentRegion
tabloT = Sheets("TAB 2").Range("A3").CurrentRegion
flag = 0
For i = 2 To UBound(tabloB, 1)
For j = 1 To UBound(tabloB, 2)
If flag = 0 And tabloB(i, j) <> tabloT(i, j) Then
Set plage = Cells(i + 2, j)
flag = 1
ElseIf tabloB(i, j) <> tabloT(i, j) Then
Set plage = Union(plage, Cells(i + 2, j))
End If
Next j
Next i
Range(Cells(4, 1), Cells(UBound(tabloT, 1) + 2, UBound(tabloT, 2))).Interior.Color = RGB(232, 232, 232)
plage.Interior.Color = RGB(255, 255, 100)
End Sub
Bye !