Sub Macro2()
Dim nb As Integer 'déclare la variable nb (NomBre)
Dim cel As Range 'déclare la variable cel (CELlule)
Dim r As Range 'déclare la variable r (Recherche)
For Each cel In Range("B2:B" & Range("B65536").End(xlUp).Row) 'boucle sur toutes les cellules éditées de la colonne B (en partant de la ligne 2)
Set r = Columns(1).Find(cel.Value, , xlValues, xlWhole) 'définit la recherche (recherche la valeur EXACTE de la cellule cel dans la colonne A)
If r Is Nothing Then nb = nb + 1 's'il n'y a aucune occurrence de cel dans la collone 1, nb s'incrémente de +1
Next cel 'prochaine cellule de la boucle
MsgBox nb & " transporteurs non référencés" 'message
End Sub