Copier - Coller

Bonjour le forum,

Je rencontre une petite difficulté. Je souhaiterais copier le contenu de plusieurs cellules d’une colonne et le coller dans les cellules constituant une ligne dans un autre tableau., le tout en cliquant sur un bouton "Ajouter". Le contenu des cellules de la colonne varient tout le temps, il faudrait donc qu’a chaque fois, cela se mette a la suite du tableau.

Ci-joint se trouve le fichier.

Merci beaucoup.

Bonne journée

Bonsoir,

Pas de cellules fusionnées inutilement !

Sub Ajouter()
    With Range("d5:d8")
        .Copy
        Range("i65536").End(xlUp)(2).PasteSpecial Paste:=xlPasteValues, Transpose:=True
        .ClearContents
    End With
        Application.CutCopyMode = False
    Range("d5").Activate
End Sub

Amicalement

Claude

Parfait Un grand grand merci

Amicalement

Adrien