Transposer des données

Bonjour,

J'ai une question, je souhaiterais transposer les données de l'onglet("Save") à l'onglet ("Consultation"), voici ma formule :

Private Sub CommandButton2_Click()
Dim r As Integer, numfact As Integer

With Me.ListBox1
    If .ListIndex = -1 Then MsgBox "Vous n'avez rien sélectionné !", vbCritical, "Selection Liste": Exit Sub
    numfact = .List(.ListIndex, 3) 'Numéro de FactLog
End With

r = Application.IfError(Application.Match(numfact, Range("TabSave[NumFactLog]"), 0), 0)

If r = 0 Then
    MsgBox "Erreur ## - Pas de NumFactLog", vbInformation, "Facture inexistante"
    Exit Sub
End If
With Sheets("Consultation")
    .Range("C16:C68") = ""
    .Select
    .Range("F4") = numfact
    .Range("D4") = Range("TabSave").ListObject.DataBodyRange(r, 1).Resize(r, 1).Value  'Facture/Avoir
    .Range("E4") = Range("TabSave").ListObject.DataBodyRange(r, 3).Resize(r, 1).Value  'NumFactCompta
    .Range("D6:D7") = Range("TabSave").ListObject.DataBodyRange(r, 5).Resize(r, 2).Value 'Mois année

'    .Range("C16:C68") = Range("TabSave").ListObject.DataBodyRange(r, 8).Resize(r, 53).Formula 'OPE

End With
Unload Me
End Sub

j'ai un doute à la ligne

 .Range("C16:C68")

Quelqu'un aurait la réponse ?

Merci pour votre retour,

RQ

bonjour Rquantin, un essai

Merci BsAIv, cela fonctionne parfaitement ! Merci

Edit