[VBA-E] Inserer une ligne vide dans Excel

Bonjour tout le monde...

j'ai une feuille Excel qui contient des milliers de lignes...
j'ai une colone qui contient des codes...

ce que j'aimerai faire c'est de d'inserer une ligne vide chaque fois que le code change de valeur dans cette colonne...
exemple

Citation:

---

CODE:

AAA
AAA
AAA
BBB
BBB
CCC
DDD
DDD

---

j'aimerai avoir ca comme resultat:

Citation:

---

CODE:

AAA
AAA
AAA

BBB
BBB

CCC

DDD
DDD

---

j'ai commencé a faire ca a la main, mais ca risque de me prendre plusieurs longues heures...

quelqu'un peut me dire s'il ya moyen de faire ca avec du code ?? car je n'ai absolument aucune idée :?

merci pour votre aide!

Bon ceci dit, tu ne sais pas forcément avec quoi ecrire ton code, à priori le VBA Excel serai approprié...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

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

---

Merci pour la reponse Bbil!!

ca fonctionne parfaitement!!


Merci encore:D