Copie de cellules selectionnées dans une autre page

Bonjour,

J'aimerais faire une macro qui me permet de copier des cellules sélectionnées à la souris vers une autre page.

Exemple : je selectionne 5 cellules, lance la macro et les 5 sont copiés dans la Sheet2 à partir de la case B3

Je cherche pas de selection prédéfini, comme par colonne ou tranche de case.
Je veux pouvoir les séléctionner
Je précise car ceci se trouve deja sur le net.

J'ai trouvé une macro qui me copie mes cellules dans un autre workbook, ce qui ne m'arrange pas. Je veux que la page de copie existe déjà.

Merci d'avance

voilà la macro qui ne m'interresse qu'a moitier :
Sub Copy_Selection()
Dim source As Range
Dim dest As Workbook

Set source = Nothing
On Error Resume Next
Set source = Selection.SpecialCells(xlCellTypeVisible)
On Error GoTo 0
If source Is Nothing Then
MsgBox "The source is not a range or the sheet is protect, please correct and try again.", vbOKOnly
Exit Sub
End If

If ActiveWindow.SelectedSheets.Count > 1 Or _
Selection.Cells.Count = 1 Or _
Selection.Areas.Count > 1 Then
MsgBox "An Error occurred :" & vbNewLine & vbNewLine & _
"You have more than one sheet selected." & vbNewLine & _
"You only selected one cell." & vbNewLine & _
"You selected more than one area." & vbNewLine & vbNewLine & _
"Please correct and try again.", vbOKOnly
Exit Sub
End If

Application.ScreenUpdating = False
Set dest = Workbooks.Add(xlWBATWorksheet)
source.Copy
With dest.Sheets(1)
.Cells(1).PasteSpecial Paste:=8
' Paste:=8 will copy the column width in Excel 2000 and higher
' If you use Excel 97 use the other example
.Cells(1).PasteSpecial xlPasteValues, , False, False
.Cells(1).PasteSpecial xlPasteFormats, , False, False
.Cells(1).Select
Application.CutCopyMode = False
End With

Application.ScreenUpdating = True
End Sub