Modification d'une macro excel: cellule de destination

Bonjour,

J'ai hésité en choisissant le forum: je suis à la limite entre la bureautique et la programmation VBA :)
Voilà mon (petit) souci.
J'ai créé une macro qui me permet de travailler une chaîne de caractères récupérée sur le net. A savoir (en gros)
- remplacer les tirets longs par des virgules et enlever les caractères inutiles
- convertir le résultat en utilisant la virgule comme séparateur.

La macro fonctionne bien à ceci près que j'aimerais bien que le résultat de la conversion s'affiche sur la ligne où j'ai déposé ma chaîne de caractères. Malheureusement la macro m'affiche ça sur la ligne où je me trouvais quand je l'ai créée. Voilà la macro en question:


Sub mise_en_forme()
'
' mise_en_forme Macro
' Macro enregistrée le 15/12/2012 par QG
'
' Touche de raccourci du clavier: Ctrl+m
' Remplace les chaînes de caractères "pts -- " par des virgules, supprime
' les espaces et convertit la chaîne résultante en utilisant la virgule
' comme séparateur

Cells.Replace What:="pts -- ", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Selection.TextToColumns Destination:=Range("B10"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array _
(20, 1), Array(21, 1), Array(22, 1)), TrailingMinusNumbers:=True
End Sub

Je suppose que le problème se situe au niveau du "Destination:=Range("B10") mais je ne sais pas par quoi remplacer ce Range pour arriver à afficher le résultat sur ligne de la cellule active.
Quelqu'un peut-il m'aider?

Merci d'avance.