Excel tableau répéter titre colonne en ligne

Bonjour,

un dessin vaut mille mots.

Mon explication sera plus "compréhensible" si vous ouvrez la pièce jointe.

Je cherche à mettre en ligne le titre de mes colonnes...

merci beaucoup

Bonjour,

Vois le fichier joint avec un code pour te faire cela.

Clique sur le bouton bleu de ta feuille pour actionner

Si ok, merci de cloturer le fil en cliquant sur le V vert à coté du bouton EDITER

Amicalement

MERCI beaucoup!

mais ce tableau était pour l'exemple en réalité j'ai beaucoup plus de lignes et de colonnes que celà...

donc si je rajoute une colonne... la macro ne fonctionne plus...

merci beaucoup

Re,

Essaie en remplaçant le code que je t'avais proposé par celui ci-dessous

Sub test()
'Macro dan
Dim dlg As Integer, i As Integer, nblg As Integer
Dim col As Byte, j As Byte
Dim plage As Range
Application.ScreenUpdating = False
dlg = Range("A" & Rows.Count).End(xlUp).Row
col = Range("A3").End(xlToRight).Column + 1
Range("B3").EntireColumn.Insert

i = 0

Set plage = Range("A4:A" & dlg)
nblg = plage.Rows.Count
For j = 2 To col
    If j - 1 = 1 Then
        Do While i < nblg
            Range("b" & i + 4) = Cells(3, j + 1)
            i = i + 1
        Loop
    Else:
        i = Range("B" & Rows.Count).End(xlUp).Row + 1
        Do While i <= dlg
            Range("b" & i) = Cells(3, j + 1)
            i = i + 1
        Loop
    End If
    If j <> col And j + 1 <> col Then
        plage.Copy Range("A" & dlg + 1)
        plage.Offset(0, j + 1).Cut Range("A" & dlg + 1).Offset(0, 2)
        dlg = Range("A" & Rows.Count).End(xlUp).Row
    End If
    Cells(3, j + 1).ClearContents

Next
Application.ScreenUpdating = True
End Sub

Si ok, clique sur le V vert à coté du bouton EDITER pour cloturer le fil

Amicalement