Macro insertion ligne

Bonjour à tous, j'essaye de créer une Macro mais je n'y arrive pas du tout....

J'ai un fichier avec plus 700 lignes.

La colonne A contient des code : A1 ou A101 ou B12 etc

je voudrais insérer une ligne à chaque changement de code...

Comment faire ?

Merci de votre aide.

Salut à toi,

C'est pas optimal mais voici un code qui peut te dépanner le temps que quelqu'un trouve une meilleure solution

Sub insertion_lignes()

    'Compter le nombres de lignes
nb_lignes = WorksheetFunction.CountA(Range("A:A"))

For i = 1 To 1000
Range("A" & i).Select
If Range("A" & i).Offset(1, 0).Value <> ActiveCell.Value Then
Rows(i + 1).Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
ActiveCell.Offset(1, 0).Select
i = i + 1

Else
ActiveCell.Offset(1, 0).Select
End If
Next

End Sub

A+

C'est pas optimal mais ça fonctionne ! Alors merci tout plein !