Microsoft 365 [RESOLU] vba dupliquer contenu d'une cellule en colonnes jusqu'à ligne vide

[JVOS]

Bonjour
J'ai un tableau qui répertorie pour chaque salarié des lignes numérotées allant de 50 à 9999.
Pour que ce soit exploitable, je voudrais récupérer le nom du salarié dans une colonne, puis n° rubrique et montant associé.
Je vous joints un fichier.
colonnes de A à W : fichier reçu
colonnes de a à AD : données à créer

Merci pour le temps passé

 

[vgendron]

Hello
une proposition par macro
le résultat est mis dans la feuille 1

 

[JVOS]

Hello
une proposition par macro
le résultat est mis dans la feuille 1

Merci beaucoup, ça fonctionne très bien

 

[job75]

Bonsoir JVOS, vgendron, le forum,

Voyez le fichier joint et cette macro :

Sub Copie()
Application.ScreenUpdating = False
[B:U].Copy [W1]
[W1].Resize(7, 20).Clear
[AA:AC].Find("Total*", , xlValues, , xlByRows, xlPrevious).Cells(2, -3).Resize(5, 20).Delete xlUp
[AD:AJ,AM:AM].Delete
End Sub

Je ne vois vraiment pas l'intérêt de recopier x fois le nom du salarié !!!

A+