'nom de la fonction: blablebli()
'ini1 et ini2 sont les deux cellules de ta feuille excel que tu veux comparer
Function blablebli(ini1, ini2 As Range)
'on créé un tableau test qui contient les mots de la cellule ini1 séparés par un espace
test = Split(ini1, " ")
'on met la variable "présent" à faux pour commencer
present = False
'pour chaque élément du tableau = pour chaque mot
For i = LBound(test) To UBound(test)
'si on trouve le mot dans la cellule ini2
If InStr(1, ini2, test(i)) <> 0 Then
' alors on renvoie "OK"
blablebli = "ok"
End If
'mot suivant
Next i
'à la fin, si on a jamais mis ok, alors, on renvoie "Erreur"
If blablebli <> "ok" Then blablebli = "Erreur"
End Function