Valeur d'une cellule sur en-tete

Bonjour à tous ! Je suis nouveau sur le forum

comme le titre indique , il ya une possibilite de copie valeur d'une cellule\s sur l'en-tete du tableau

bonjour,

Sub x()
     Range("B6:D6").Copy
     Range("F1").PasteSpecial xlAll, Transpose:=True
End Sub

il copie sur les 3 lignes

Sub x()
     Range("B6:D6").Copy
     Sheets("F1").Range("B8:D8").PasteSpecial xlAll, Transpose:=True
     Sheets("F2").Range("B8:D8").PasteSpecial xlAll, Transpose:=True
End Sub

ok ca marche jai trouve le probleme

Sub x()
     Range("B6:D6").Copy
     Sheets("F1").Range("B8:D8").PasteSpecial xlPasteValues
     Sheets("F2").Range("B8:D8").PasteSpecial xlPasteValues
End Sub