Ajouter ligne sup pour chaque groupe de doublon dans une liste

Bonjour

Je dispose d'un tableau tiré du logiciel de comptabilité qui reprend tous les achats de la période par fournisseur.
Je voudrai pour la plage de fournisseurs ajouter une ligne supplémentaire après le dernier doublon :

ZABATA
MANTOR
MANTOR
MANTOR
=====> AJOUTERE LIGNE MANTOR
CHUPACHUPA
COYOTTE
COYOTTE
COYOTTE
COYOTTE
COYOTTE
=====> AJOUTERE LIGNE COYOTTE
FELIX

Puis insérer une formule que je spécifie.

Je vous remercie d'avance

Yashine

bonjour Yashin le forum
suppose ta liste en colonne A a adapter pour la formule pas assez d'infos!!!

Code:

---

1 2 3 4 5 6 7 8 9

Option Explicit Sub Rec() Dim i As Long Application.ScreenUpdating = False For i = 2 To Range("A65535").End(xlUp).Row If Cells(i, 1) = Cells(i - 1, 1) And Cells(i, 1) <> Cells(i + 1, 1) Then Cells(i + 1, 1).Insert Shift:=xlDown End If: Next i End Sub

---

Bonjour laetitia

Merci pour la réponse, ça fonctionne
J'ai juste changé

Code:

---

Insert Shift:=xlDown

---

par

Code:

---

EntireRow.Insert

---

Merci Beaucoup