Formule création de ligne

Bonjour à tous,

Voilà mon problème, j'ai un fichier se présentant ainsi :

Ligne 1 : Date A ; libellé A ; montant TTC A; TVA A ; montant HT A

Ligne 2 : Date B ; libellé B ; montant TTC B; TVA B; montant HT B

Ligne 3 : Date C ; libellé C ; montant TTC C; TVA C; montant HT C

et ainsi de suite

Et je voudrais qu'il se présente de la manière suivante :

Ligne 1 : Date A ; libellé A ; montant TTC A

Ligne 2 : Date A ; libellé A ; vide ; TVA A

Ligne 3 : Date A ; Libellé A ; vide ; Montant HT A

Ligne 4 : Date B ; libéllé B ; montant TTC B

Ligne 5 : Date B ; libéllé B ; vide ; TVA B

Et ainsi de suite

C'est pour importer des écritures de compta. Est ce possible de faire cela sous Excel (je suis débutante)

Merci de votre aide

Toto sait faire.

Il suffit de faire tourner la macro en changeant les noms de tes feuilles

Sub toto()
    Dim i As Long, k As Long, depart As String, arrivee As String
    Application.ScreenUpdating = False
    'nom de la feuille de depart
    depart = "Sheet1"
    'nom de la feuille darrivee
    arrivee = "Sheet2"
    k = 1
    With Sheets(depart)
        For i = 1 To .Range("A" & .Rows.Count).End(xlUp).Row
            Sheets(arrivee).Cells(k, 1) = .Cells(i, 1)
            Sheets(arrivee).Cells(k, 2) = .Cells(i, 2)
            Sheets(arrivee).Cells(k, 3) = .Cells(i, 3)
            k = k + 1
            Sheets(arrivee).Cells(k, 1) = .Cells(i, 1)
            Sheets(arrivee).Cells(k, 2) = .Cells(i, 2)
            Sheets(arrivee).Cells(k, 4) = .Cells(i, 4)
            k = k + 1
            Sheets(arrivee).Cells(k, 1) = .Cells(i, 1)
            Sheets(arrivee).Cells(k, 2) = .Cells(i, 2)
            Sheets(arrivee).Cells(k, 4) = .Cells(i, 5)
            k = k + 1
        Next i
    End With
    Application.ScreenUpdating = True
End Sub