VBA sélectionner page 2 et copie en fi de doc

Sub selectiontexte()
'Déclare les nom des signets
Const UnSignet As String = "debut"
Const DeuxSignet As String = "fin"

'Déclare le variable Range
Dim Signet1Rge As Range
Dim Signet2Rge As Range
Dim selection As Range

'Assigne les variables
With ActiveDocument
Set Signet1Rge = .Bookmarks(UnSignet).Range
Set Signet2Rge = .Bookmarks(DeuxSignet).Range

'Assigne le texte à selectionner
'(Texte compris entre fin du premier signet
'et début du deuxième)
Set selection = _
.Range(Signet1Rge.End, Signet2Rge.Start)

'selectionne le texte pour la copie
selection.Select
 selection.Copy 'copie le texte
End With
End Sub
Sub copiertexte()
'Déclare les nom du signet
Const Troissignet As String = "copier"

'Déclare le variable Range
Dim Signet3Rge As Range
Dim selection As Range

'Assigne la variable
With ActiveDocument
Set Signet3Rge = .Bookmarks(Troissignet).Range

Set selection = _
.Range(Signet3Rge.Start)

'selectionne le début de copie
selection.Select
selection.Paste 'colle le texte
End With
End Sub