MACRO Excel Insérer ligne entre deux cellules Résolu/Fermé

Question

Bonjour, 
Je souhaiterais trouver la macro qui me permette de, sur une plage sélectionnée (ex: cellules A2 à A30), contrôler le contenu des cellules afin d'insérer une ligne entre deux cellules différentes.
Exemple : plage A2 à A30, si cellule A3 = A2, passer à la cellule suivante
Si A4 = A3, insérer une ligne entre A3 et A4
Ainsi de suite
Merci!

lermite222 · Accepted Answer

Bonjour, 
test les cellules de A2 à Axx 
Sub TesterLigne() 
Dim Lig As Long 
    For Lig = Range("A65536").End(xlUp).Row To 3 Step -1 
        If Cells(Lig, 1) = Cells(Lig - 1, 1) Then 
            Rows(Lig).Insert Shift:=xlDown 
            Lig = Lig - 1 
             
        End If 
    Next Lig 
End Sub
A+ 
Toute la connaissance du monde ne peu tenir dans une seul tête  (moi) 
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius) 
NOTE : Je ne répond pas aux MP pour les questions techniques. 
Ça doit se passer sur le forum pour que tous puisse y participer ou en profiter.

pierrelouis26 · Answer

..