Macro modification fiche client

Je crée un nouveau poste en espérant avoir une réponse.
Pour simplifier ma demande.
J'ai une base de donnée client sur une feuille excel (appelé BD). et j'ai une macro qui me permet de modifier cette base de donnée (appelé modification).
Cependant quand j'exécute ma macro, excel me dit que j'ai un problème au point suivant (With ActiveWindow
.Top = -6
.Left = -3).
je ne comprends pas exactement quel le problème. voici la macro dans son entier.
S'il vous plait aidez moi!!

le fichier est visible ici:
le fichier client est a cette adresse:




Sub Modification()
'
' Modification Macro
' Macro enregistrée le 9/03/2009 par X XX
'

'

Range("A2:AA2").Select
Selection.Copy
With ActiveWindow
.Top = -6
.Left = -3
End With
Sheets("BD").Select
Range("A" & [PARAM_NO_LIGNE] + 1).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
With ActiveWindow
.Top = -1
.Left = 0
End With
Sheets("Modifier le client").Select
Range( _
"D10,D12,D14,D16,D18,D20,D22,D24,D26,C30:E30,C32:E32,C34:E34,C36:E36,C38:E38,C50:E56"). _
Select
Range("C49").Activate
Application.CutCopyMode = False
Selection.ClearContents
Range("D8").Select

End Sub
Sub aller_a_nouveau()
'
' aller_a_nouveau Macro
' Macro enregistrée le 9/03/2009 par X XX
'

'
Sheets("Nouveau Client").Select
Range("C6").Select

End Sub
Sub aller_a_Modification()
'
' aller_a_Modification Macro
' Macro enregistrée le 9/03/2009 par X XX
'

'
Sheets("Modifier le client").Select
Range("D8").Select
End Sub
Sub aller_a_consultaion()
'
' aller_a_consultaion Macro
' Macro enregistrée le 9/03/2009 par X XX
'

'
Sheets("Fiche Client").Select
Range("A1").Select
End Sub
Sub aller_a_menu()
'
' aller_a_menu Macro
' Macro enregistrée le 9/03/2009 par X XX
'

'
Sheets("Menu").Select
End Sub