Dispatcher Contenu Cellule

Bonjour,
Je souhaiterais dispatcher le contenu d'une cellule sur toutes les cellules suivantes.
Exemple :

Code:

---

1 2 3 4

A1 : Salut Résultat : A1 : S A2 : a A3: l A4: u A5: t

---

Quelle fonction puis-je utiliser ou quelle est la manipulation ?

Je vous remercie d'avance pour toute réponse.

Sempire

Bonjour,
plusieurs solutions
1) dans les cellules suivantes entrer la fonction =STXT(A2;1;1) puis =STXT(A2;2;1) puis =STXT(A2;3;1) puis ...
2) créer une fonction

Bonjour

une solution

Code:

---

1 2 3 4 5 6 7 8

Dim nb As Long Dim C As Object   With Range("A1") For nb = 1 To Len(.Value) .Offset(0, nb) = Mid(.Value, nb, 1) Next End With

---