Insertion ligne automatique + copie des données

Bonjour à tous,

Je suis débutant en VBA et j'aurais besoin d'aide.

Ma problématique est la suivante, j'ai un export Excel issus d'un logiciel et ce dernier doit être intégrer dans mon logiciel de compta.

J'ai besoin de recopier une ligne de cette import Excel pour arriver à mon résultat final (il s'agit de pouvoir intégrer de l'analytique dans mon import comptable, mon logiciel a besoin que cette ligne soit doublé, une pour le compte général et l'autre pour l'analytique)

Voici l'export Excel :

J'ai ce schéma de tableau sur des centaines de ligne. Dès qu'il y a une information dans la dernière colonne, j'ai besoin que cette ligne soit recopier immédiatement au dessus (sans l'information de la dernière colonne)

ce qui doit me donner le résultat suivant :

J'ai trouvé plusieurs macro déjà existantes mais qui m'inséraient une ligne avant et après. Je n'ai pas réussi a faire dupliquer les données de la ligne non plus.

Pouvez vous m'aider ?

Merci

Bonne soirée à tous

Salut Mathieu,

Voici ton fichier : un double-clic sur la feuille démarre la macro..

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'
Cancel = True
Application.ScreenUpdating = False
'
For x = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
    If Range("H" & x).Value <> "" Then _
        Rows(x).Insert shift:=xlDown: _
        Range("A" & x).Resize(1, 7).Value = Range("A" & x + 1).Resize(1, 7).Value
Next
'
Application.ScreenUpdating = True
'
End Sub

A+