Function CombinTroisMots(Texte As String) As String
Dim ListeMots, i As Long, j As Long
CombinTroisMots = ""
ListeMots = Split(Texte)
For i = 0 To 2
For j = 0 To 2
If i <> j Then
CombinTroisMots = CombinTroisMots & ListeMots(i) & " " & ListeMots(j) & " " & ListeMots((i + j) * 2 Mod 3) & Chr(10)
End If
Next j
Next i
CombinTroisMots = Left(CombinTroisMots, Len(CombinTroisMots) - 1)
End Function