Remplir cellule avec information ligne précédente

Bonjour,

J'ai importé en Excel un rapport provenant d'un autre système.

Dans ce rapport, il y a des produits avec des items. J'aimerais copier l'information du produit dans chacun des items pour pouvoir faire des tris.

Je joins un exemple de ce que j'ai et de je que j'aimerais comme résultats:

1) copier les informations du produit sur la ligne de l'item

2) détruire la ligne en-tête du produit

J'ai un petite idée processus, mais je n'arrive pas à le convertir en macro :

Est-ce que cellule A3 est vide?

Oui - Mettre info de A2 dans A3, B2 dans B3, C2 dans C3

Détruire ligne A2

Passer à la cellule A4

Non - Passer à la cellule A4

Répéter pour chaque ligne de la feuille

Merci

Marthi

Bonjour,

à tester,

Sub test()
Range("A1:C1").Insert Shift:=xlDown

rw = Cells(Rows.Count, "D").End(xlUp).Row
For i = rw To 1 Step -1
    If Cells(i, "D") = "" Then Range("A" & i & ":F" & i).Delete Shift:=xlUp
Next

rw = Cells(Rows.Count, "D").End(xlUp).Row
For i = 1 To rw
    If Cells(i, "A") = "" Then Range("A" & i & ":C" & i) = Range("A" & i - 1 & ":C" & i - 1).Value
Next
End Sub

Merci beaucoup.

Il y a quelques petites corrections à faire, mais ça me donne un bon début de solution.

Marthi