Afficher une ligne vide entre chaque changement de marque

Bonjour, bon voila, se que je cherche a faire est décrit dans le titre.

PS: Les données dans mon fichier ne sont que fictif, car c'est pour mon boulot et je ne peux afficher l'information de mon boulot. Alors ça rien a voir réellement avec l'automobile.

Dans mon fichier joint, consulter l'onglet listing, les informations qui s'y trouve provient d'une exportation de rapport. Toute l'information ce mets condensé 1 ligne sous l'autre. Pour les besoins de mon travail j'ai besoin que l'information soit séparé d'une ligne vide à chaque changement de marque...Alors dans l'onglet feuille de travail je vous représente le résultat que je recherche.

Donc dans mon onglet feuille de travail, quel formule que je peux avoir pour obtenir se résultat.

Bonsoir

Un essai :

Sub Séparation()
    Dim Der_Ligne As Long
    Der_Ligne = ActiveSheet.Cells(Rows.Count, 4).End(xlUp).Row
    Do
    If Der_Ligne = 3 Then Exit Do
    If Cells(Der_Ligne - 1, 4).Value <> Cells(Der_Ligne, 4).Value And Cells(Der_Ligne - 1, 4).Value <> "" Then
        ' ajout d'une ligne au dessus de la ligne Der_Ligne
        Range(Der_Ligne & ":" & Der_Ligne).Select
        Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        Selection.Borders(xlInsideVertical).LineStyle = xlNone
    End If
    Der_Ligne = Der_Ligne - 1
    Loop
End Sub

C'est un code VBA, si vous êtes sous Excel 2007 ou plus il vous faut enregistrer votre fichier avec l'extension .xlsM

Sinon vous avez le fichier joint :

@ bientôt

LouReeD

Merci...bien utile.

Bonsoir,

merci à vous pour le feed back !

Mais cela vous est bien utile ? Cela ne correspond pas à ce que vous attendiez ?

Mince alors, j'ai tapé encore une fois à coté !!!!

@ bientôt

LouReeD