Copier et coller en transposé

Bonjour à tous,

je cherche à:

• copier une colonne dans une feuille nommée "Disabled Lives Calculations"
• coller cette colonne transposée dans chaque ligne de la colonne B de la feuille nommée "mat'

Sub testoptimum()
For i = 0 To 113
    Sheets("input").Range("B2") = i
   ' Sheets("Disabled Lives Calculations").Range("I10:I123").Copy Destination:=Sheets("mat").Range("B" & i + 2).Transpose
Sheets("Disabled Lives Calculations").Range("I10:I123").PastSpecial.Sheets("mat").Range("B" & i + 2).Transpose = True
Next i
End Sub

Bonjour

Essaie ce code :

Dim i As Integer, fo As Worksheet, fd As Worksheet

Sub Exporter()

    Set fo = Sheets("Disabled Lives Calculations")
    Set fd = Sheets("mat")
    fo.Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row).Copy
    For i = 1 To 113
        fd.Range("A" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
     Next i
End Sub

Te convient-il ?

Bye !