Erreur d'execution 1004

Bonjour,

Je me permets d'écrire afin d'obtenir un peu d'aide.
J'ai créé une macro mais rien à faire elle bloque:

Sub ALIMBASECLIENT()
'
' ALIMBASECLIENT Macro
'

'
Range("A3").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range("A3:R3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Base de données").Select
Range("A65536").End(xlUp).Offset(1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll ToRight:=15
ActiveWindow.ScrollColumn = 1
Range("A360").Select
Sheets("Saisie").Select
Range("A3:C30,E3:F30,H3:I30,L3:L30,P3:X30").Select
Range("P3").Activate
Application.CutCopyMode = False
Selection.ClearContents
ActiveWindow.SmallScroll ToRight:=-12
Sheets("Suivi de facturation").Select
Range("C8").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh
End Sub

Lorsque l'instruction arrive au niveau de:
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
le message erreur d'execution 1004 pointe son nez.

Je ne sais plus quoi faire pour réparer cela.

Je vous remercie infiniment pour votre aide.

Bonne journée!

Marlene