Bonsoir Florian, bonsoir à tous,

Peut-être avec une macro, un essai dans le fichier joint, avec ce code (cliquer sur le bouton Go dans l'onglet):

Option Explicit
Sub Insertion()

'Déclaration des variables
Dim lig As Long, i As Long

With ActiveSheet 'Travaille sur l'onglet actif

 'Calcule la dernière cellule remplie de la colonne A
 'à adapter, par exemple pour la colonne D remplacer le 1 par 4:
 lig = .Cells(Rows.Count, 1).End(xlUp).Row
 
 If lig > 1 Then   'S'il y a au moins deux lignes:
  
  'boucle de la dernière ligne à la ligne 3 (s'il y a un intitulé de colonne ligne 1)
  'en remontant d'un pas de 1
  For i = lig To 3 Step -1
   
   'Teste si la cellule est différente de la cellule au dessus
   If .Cells(i, 1) <> .Cells(i - 1, 1) Then
    .Cells(i, 1).EntireRow.Insert 'insérer une ligne
   End If 'Fin du test si cellules différentes
  
  Next i 'passage à la ligne précédente pour la boucle (For ...)
 
 End If ' Fin du premier If si ligne >1

End With 'fermeture du WITH

End Sub

Très bonne soirée,

mth