Macro récupération de données

Bonjour,

Je découvre votre site et forum, plein de bons conseils et d' "excelman" qui je pense vont pouvoir m'aider.
J'ai récupérer des infos et essayé de faire une macro me permettant de récupérer des infos dans une 1ere feuille (formulaire) et les transposant dans une 2eme (satisfaction).

Cette macro fonctionne à moitié, en effet, celle ci récupérer bien les infos (verticalement dans la feuille formulaire) et les transpose dans la feuille satisfaction (horizontalement).
Tout fonctionne bien sur la 1ere ligne mais dès que je rempli le formulaire une seconde fois la transpositon dans la feuille satisfaction ce fait horizontalement et verticalement et copie aussi la couleur et la mise en forme de la feuille formulaire.

Je vous joins la macro que j'utilise, si quelqu'un à une solution pour que seule les données soient copiées (sans la mise en forme) et uniquement à l'horizontal.

Merci d'avance pour votre aide
Pascal

Sub transpose_dans_tableau_satisfaction()
'atteindre le formulaire et memoriser les données'
Application.ScreenUpdating = False
Sheets("Satisfaction").Select
Range("B7:B14").Select
Selection.Copy
'Test pour determiner la ligne où coller les infos dans le tableau'
Sheets("Bdd Satistaction").Select
ValeurA2 = Range("A2").Value
If ValeurA2 = "" Then
Range("A2").Select
Else
Range("A1").Select
Selection.End(xlDown).Select
ligne_active_base = ActiveCell.Row
ActiveSheet.Range("A" & ligne_active_base + 1).Select
ActiveSheet.Paste
End If
'Memorise le n° de la ligne où coller les données'
ligne_active_base = ActiveCell.Row
'Collage avec transposition'
Range("A" & ligne_active_base).Select
Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, _
Operation:=xlNone, SkipBlanks:=False_, Transpose:=True
'Rendre vierge le formulaire'
Sheets("Satisfaction").Select
Range("B7:B14").Select
Selection.ClearContents
Range("B1").Select
'Retour a l'accueil'
Sheets("Accueil").Select
Range("A1").Select
End Sub