éxécution macro

Boinsoir

J'ai un petit problème lorsque je veux exécuter la macro suivante:

Sub reserv_vd()


Range("Réserve_saisie").Copy

With Worksheets("calcul")
ligne = [P65536].End(xlUp).Row
.Range("P1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


.Range("P1" & ligne).Sort Key1:=.Range("P1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

.Range("P1" & ligne).Name = "Rvd"
End With

Range("A1").Select



End Sub

Si je l'exécute par le menu macro, elle s'éxécute normalement. TVB
Si je l'appelle avec la fonction Call lorsque j'active la feuille celle-ci s'autoexécute plusieurs fois.

Private Sub Worksheet_Activate()
Call reserv_vd
End Sub

Où est mon erreur ?

Par avance merci pour votre aide