Bonjour, j'ai des données des colonnes A à la colonne N

En colonne A on a des identifiants qui changent et j'ai donc mis un saut de ligne à chaque changement de valeur :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 Sub InserLignes()
 Dim i As Long
 On Error Resume Next
 For i = Range("B65536").End(xlUp).Row To 2 Step -1
 If Cells(i, 2) <> Cells(i - 1, 2) Then Rows(i).Insert
 Next
 End Sub
Elle fonctionne parfaitement

Ce que je souhaiterais maintenant :

Pour les lignes groupées, c'est à dire qui ont plusieurs fois le même identifiant d'une ligne à l'autre (donc pas de saut de ligne), j'aimerais que la dernière ligne, s'il est écrit "Active" en colonne N, on puis la couper, et la coller une ligne au dessus et deux colonne sur la droite

Exemple de lignes groupées

1 Julien ... INACTIVE
1 Julien ... INACTIVE
1 Julien ... ACTIVE

Je voudrais que la 3ème ligne soit une ligne au dessus et deux colonne sur la droite

Voilà

Je vais le coder en langage "normal" pour vous expliquer :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 Sub CouperColler
 
 Dim i as Long
 
 If i+1=i ET Cells(i,14)="Active"
    Cells(i, A:N).Copy
    ActiveCell.Offset(-1, 2).Paste
    Supprimer Cells(i, A:N)
 End if
 Se positionner à i+1 sur la colonne A
 End Sub
Voilà, désolé pour ce code de sang mêlé (informaticien-non connaisseur)

Mais si vous pouviez m'aider merci beaucoup !!!!