Insertion ligne automatique entre chaque série de valeurs

Bonjour dans le fichier en pièce jointe j'ai des série de valeurs qui proviennent d'une extraction de données et que je copie dans une colonne (ici la colonne B) et j'aimerais que entre chaque série de valeurs identique il s'insère une ligne vide automatiquement.

Merci par avance

Kévin

Exemple :

Colonne B (actuel)

1

1

1

2

2

3

3

3

3

4

4

5

6

6

Colonne B(souhaité)

1

1

1

2

2

3

3

3

3

4

4

5

6

6

Bonjour,

à tester,

Sub Insert_Ligne()
For i = Cells(Rows.Count, 2).End(xlUp).Row To 2 Step -1
  If Cells(i, 2).Value <> Cells(i - 1, 2).Value Then Rows(i).Insert Shift:=xlDown
Next i
End Sub