Macro et VBA pour gestion de colonne > ligne

Bonjour,

Voici mon problème,

je souhaite par personne trier leurs compétences qui sont sur plusieurs colonnes, à la ligne, mais il faut que la ligne d'en dessous soit décaler du nombre de compétence qui glisse à la ligne, et que le prenom de la personne soit en face de la compétence, le prénom doit être remis à la ligne selon n compétence, c'est pour la suite faire un TCD :

Ex :

METIER | PRENOM 1 | COMPETENCE 1 | COMPETENCE 2 | COMPETENCE 3

METIER | PRENOM 2 | COMPETENCE 1

METIER | PRENOM 3 | COMPETENCE 1 | COMPETENCE 2 | COMPETENCE 3 | COMPETENCE 4

Transformer en :

METIER | PRENOM 1 | COMPETENCE 1

METIER | PRENOM 1 | COMPETENCE 2

METIER | PRENOM 1 | COMPETENCE 3

METIER | PRENOM 2 | COMPETENCE 1

METIER | PRENOM 3 | COMPETENCE 1

METIER | PRENOM 3 | COMPETENCE N ...

Pouvez-vous s'il vous plait m'aider ?

A dispo,

Bonjour,

Avez-vous un fichier type à nous envoyer?

Cindy

En pièce jointe, un exemple

Bonjour,

à tester,

Sub test()
Set wk1 = Sheets("Feuil1")
Set wk2 = Sheets("Feuil2")
For i = 2 To wk1.Cells(Rows.Count, 1).End(xlUp).Row
  For j = 3 To wk1.Cells(i, Columns.Count).End(xlToLeft).Column
      rw = wk2.Cells(Rows.Count, 1).End(xlUp).Row + 1
      wk2.Range("A" & rw & ":B" & rw) = wk1.Range("A" & i & ":B" & i).Value
      wk2.Range("C" & rw) = wk1.Cells(i, j).Value
  Next j
Next i
End Sub

Rien à dire de plus

Cindy