Fonction Transpose en VBA

Bonjour chers tous

J'ai des données en [A1:A10]

Pour les transposer en [C1:L1] j'utilise la fonction matricielle Transpose de Excel , ce qui entraine une lenteur dans l'exécution de certaines macros de mon classeur.

Je voudrais récupérer les données par code VBA.

Merci !!

Bonjour,
Un exemple.
Cdlt.

Public Sub test()
    With ActiveSheet
        .Cells(3).Resize(1, 10).Value = Application.Transpose(.Cells(1).Resize(10).Value)
    End With
End Sub

bonjour,

edit bonjour Jean-Eric

une proposition

Sub transposevba()
    Application.EnableEvents = False
    ac = Application.Calculation
    Application.Calculation = xlCalculationManual
    Range("C1:L1") = Application.Transpose(Range("A1:A10"))
    Range("A1:A10").ClearContents
    Application.Calculation = ac
    Application.EnableEvents = True
End Sub

Super

Merci à tous !!!