Sur un autre forum, un utilisateur m'a proposé cette formule là :
Function Detecter(Liste_1, Liste_2) As Long
Dim i As Long, j As Long
Chaine_1 = "," & Replace(Liste_1, " ", "", 1) & ","
Chaine_2 = "," & Replace(Liste_2, " ", "", 1) & ","
Liste_1 = Split(Chaine_1, ",")...