Fonction pour séparer les données identiques sur une colonne

Bonjour,

Tu devrais nous mettre un fichier exemple déposé sur cjoint.fr et le lien copié ici sur le forum.

Car ce que tu demandes n'est pas clair. Le "suivant" ? La cellule A de la ligne suivante ? le caractère suivant celui de la cellule A (si a -> b, si b -> ca si g ->h sir z -> a). Et pourquoi des cellules blanches en B ?

Bonjour,
Un test
https://www.cjoint.com/c/LGcjPeibA2C

Re bonjour et merci pour vos réponses. Donc j'apporte des précisions sur les cellules :

J'ai de A1 à A6 : a a b b b c

Je voudrai avoir dan la colonne B de B1 VERS LE BAS ces mêmes valeurs listées comme suit :

a a espace b b b espace c

Je pense avoir répondu à votre question jee pee

Bonjour

Dans ce cas la macro de M-12 fait le job
Si tu veux une solution sans macro, par formules il faut alors 3 colonnes :
https://www.cjoint.com/c/LGcnozWfE7J

Cdlmnt
Via

Merci beaucoup Via55 ca fonctionne bien :)

Sinon j'ai essayé ça avec du code et à vrai dire j'ai bien mouliné mon cerveau avant de tomber sur ça sur un autre site :

Sub InsereLigne()
Dim sh As Worksheet
Dim i As Integer
'bon on va travailler sur la feuille
'active au moment du lancement
Set sh = ActiveSheet
i = 2
While sh.Cells(i, 1) <> ""
If sh.Cells(i - 1, 1) <> sh.Cells(i, 1) Then
sh.Cells(i, 1).EntireRow.Insert Shift:=xlShiftDown
i = i + 1
End If
i = i + 1
Wend
End Sub

Et ça fonctionne aussi

Merci