copier coller dans une nouvelle feuille

bonjour
j'ai ce code pour creer la feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
If Selection = "" Then Exit Sub
Dim Ws As Worksheet
For Each Ws In Worksheets
If Ws.Name = Target Then MsgBox "Ce nom de feuille existe déjà !": Exit Sub
Next Ws
Sheets.Add(after:=Worksheets(Worksheets.Count)).Na me = Target
End If
Sheets("base").Activate
End Sub


mais ensuite j'aimerai copier le contenu d'une autre et le coller dans la nouvelle feuille qui vient de se creer.
merci de votre aide