Copier coller de donnée tableau structuré vers cellules

Bonjour le forum, j'espère que vous passez un bon week-end,

J'aimerais savoir s'il est possible de copier coller une cellule d'un tableau croisé dynamique sur une autre cellule d'une autre feuille. J'ai pour l'instant écrit un petit programme mais il ne fonctionne pas très bien.

Sub VoirOF1()
Dim TS1 As ListObject
Dim ligne As ListObject
Dim LI As Integer

Set TS1 = [Tableau14].ListObject
Set ligne = TS1.ListRows: LI = ligne.Index
With TS1
If Not Intersect(ActiveCell, Range("Référence")) Is Nothing Then
Feuil8.Range("B3") = ActiveCell.Value
Feuil8.Range("A12").Value = .ListColumns("N° de produit").DataBodyRange(LI)
Feuil8.Activate
Else
MsgBox "Pas dans la plage", vbExclamation + vbOKOnly
End If
End With
End Sub

Je voudrais quand je sélectionne une référence dans le tableau de la feuille "Poste1", alors le numéro du produit du tableau de la feuille "Poste 1" va dans "A12" de la feuille "OFPoste1" et la référence dans "B3" de la feuille "OFPoste1" . J'ai pour l'instant réussi à le faire avec seulement la référence. Je vous envoie le fichier en piéce jointe, merci d'avance pour votre aide.

Cordialement.

Bonjour,+

Sub VoirOF1()
Dim TS1 As ListObject
Dim ligne As ListRow '<= sans "s"
Dim LI As Integer
Set TS1 = [Tableau14].ListObject
LI = ActiveCell.Row - TS1.HeaderRowRange.Row
        Set ligne = TS1.ListRows(LI)
With TS1
'la suite sans changement

A+

Merci Galopin, passe une bonne fin de journée.