XL 2013 Facturation

[themyse1]

Bonjour,

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.... qu'est ce que je fait mal?
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

 

[RoyalP]

avec un fichier d'exemple se serait plus parlant.