Sub Comparer()
Dim h As Long, cel As Range, i As Integer
'---initialisation---
Application.ScreenUpdating = False
[F2:G65536].ClearContents
[F2:G65536].Font.Bold = False
[F2:G65536].Font.ColorIndex = xlAutomatic
h = Application.Max([C65536].End(xlUp).Row, [E65536].End(xlUp).Row) - 1
If h = 0 Then Exit Sub
'---tris préalables---
[A:E].Sort [A1], , [B1], Header:=xlYes
[D:D].Insert: [A:A].Copy [D1]
[D:F].Sort [D1], , [E1], Header:=xlYes
[D:D].Delete
'---remplissage des colonnes F et G---
[F2].Resize(h) = [C2].Resize(h).Value
[G2].Resize(h) = [E2].Resize(h).Value
'---comparaison des colonnes F et G---
For Each cel In [F2].Resize(h)
For i = 1 To Application.Max(Len(cel.Text), Len(cel.Offset(, 1).Text))
If Mid(cel.Text, i, 1) <> Mid(cel.Offset(, 1).Text, i, 1) Then
cel.Characters(i, 1).Font.Bold = True 'gras
cel.Characters(i, 1).Font.ColorIndex = 3 'rouge
cel.Offset(, 1).Characters(i, 1).Font.Bold = True
cel.Offset(, 1).Characters(i, 1).Font.ColorIndex = 3
End If
Next
Next
End Sub