Extraction paires de mots

Bonjour à tous,

Je bloque sur l'automatisation d'une tâche et serai preneur d'aide.

J'aimerais extraire l'ensemble des paires de mots inscrits dans une cellule et ce pour l'ensemble des cellules d'une colonne.

par exemple si ma cellule est mot1 mot2 mot3, j'aimerais afficher dans une autre feuille de calcul

mot1 mot2

mot2 mot3

Sachant qu'il peut y avoir un nombre important de mots par cellule.

Je joins un petit fichier exemple avec les résultats sur une autre feuille.

un grand merci d'avance pour votre aide !

Bonjour Nock et bienvenue,

à tester,

Sub test()
Set sh1 = Sheets("catalogue")
Set sh2 = Sheets("resultat")
For i = 1 To sh1.Cells(Rows.Count, "C").End(xlUp).Row
 t = Split(sh1.Cells(i, "C"), " ")
 For j = LBound(t) To UBound(t) - 1
   rw2 = sh2.Cells(Rows.Count, "A").End(xlUp).Row + 1
   sh2.Cells(rw2, 1) = t(j) & " " & t(j + 1)
 Next j
Next i
End Sub

Whaouh c'est une rapidité extraordinaire !

je teste ça demain et te tiens au courant.

un grand merci pour ton accueil et l'aide.