XL 2013 Facturation

Bonjour tout le monde,

Alors voila, je vous sollicite afin de trouver une solution à mon problème du moment.
J'aimerais extraire certaine données d'une factures sous excel, et les transposer en liste. j'ai fait une petite Macro mais elle en fonctionne pas....
Ci joint mon fichier pour ma facturaton.
Merci d'avance de votre aide.
voici ma macro :
Sub transpose_dans_tableau()
'Atteidre le formulaire et memoriser les données'
With Sheets("Factures")
Range("B13").Select
.Range("B13:J34").Copy
'Test pour déterminer la ligne où coller les infos dans le tableau
With Sheets("liste")
If .Range("B2") = "" Then
.Range("B2").PasteSpecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, skipblanks:=False, Transpose:=True
Else
.Range("B65535").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, skipblanks:=False, Transpose:=True
End If
End With

Application.CutCopyMode = False
.Range("B13:J34").ClearContents
Range("c13").Select

End With

End Sub