Création Macro déplacement cellule

Bonjour à tout le forum

Je suis un débutant (tout début) sur les Macro, et je souhaiterai réaliser une macro qui puisse transformer un tableau ou les entrées se font par la première colonne (les questions) en un deuxième tableau sur une autre feuille du classeur où les entrées se font par l'intermédiaire de la deuxième colonne.

Comme un exemple est toujours mieux qu'un long discours, j'ai associé le fichier exemple.

Merci pour votre aide.

Bonsoir,

Voir le fichier joint.

Je n'ai pas fusionné les cellules compétence dans le résultat.

Je ne fusionne jamais les cellules dans Excel !

Super!

Merci beaucoup.

Ca marche du tonnerre

Bonjour à tous,

Si tu veux conserver la fusion des cellules, çà complique mais on peut faire

Sub Tableau()
Dim Lg&, a%, i%, x%, c As Range, Comp$
    Lg = Range("b" & Rows.Count).End(xlUp).Row

  With Sheets("Feuil2")
        '--- efface et bordurage ---
        .Range("a5:c30").Clear
    With .Range("a5:c" & Lg + 2)
        .BorderAround Weight:=xlMedium
        .Borders(xlInsideVertical).Weight = xlMedium
        .Borders(xlInsideHorizontal).Weight = xlMedium
        .HorizontalAlignment = xlCenter
    End With
    '---
    For a = 1 To 4
        If a = 1 Then Comp = "A"
        If a = 2 Then Comp = "B"
        If a = 3 Then Comp = "C"
        If a = 4 Then Comp = "D"

            x = 0
        For Each c In Range("c3:c" & Lg)
            If UCase(c) Like Comp Then      'recherche
                .Cells(65000, "b").End(xlUp)(2) = Range(c.Address).Offset(0, -1)
                .Cells(65000, "c").End(xlUp)(2) = Range(c.Address).Offset(0, 1)
                x = x + 1
            End If
        Next
        '--- fusionne colonne "A" ---
            .Cells(65000, "b").End(xlUp)(2).Offset(-x, -1) = Comp
        With .Cells(65000, "b").End(xlUp)(2).Offset(-x, -1).Resize(x, 1)
            .MergeCells = True
            .VerticalAlignment = xlCenter
        End With
    Next a
        .Range("a3") = Range("a4")
  End With
End Sub

Bonne journée

Claude