salut
essayes avec ce code (qu'il te faudra améliorer) et dis nous si ça colle
Sub tri()
Dim celA, celB As Range
Dim compteur, compteur1 As Integer
Dim c
compteur = 0
compteur1 = 0
For Each celA In Range('A2:a45')
With Range('B2:B45')
Set c = .Find(celA)
If c Is Nothing Then
compteur = compteur + 1
End If
End With
Next
For Each celB In Range('B2:B45')
With Range('A2:A45')
Set c = .Find(celB)
If c Is Nothing Then
compteur1 = compteur1 + 1
End If
End With
Next
MsgBox 'Il y a ' & compteur & ' valeurs en colonne A qui ne sont pas en B ' _
& ' et ' & compteur1 & ' valeurs en colonne B qui ne sont pas en A', , 'résultats'
End Sub