erreur de compilation

Bonjour,

J'a un soucis : le message

"erreur de compilation : fonction ou variable attendu"

et "selection" (en dessous de rows("5:5) est en surbrillance

Voici le code :

Sub REPORT()
'
' REPORT Macro
'

'
  Sheets("base Faits Etablissement").Select
  Rows("5:5").Select
  selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
  Range("A6:EZ6").Select
  selection.AutoFill Destination:=Range("A5:EZ6"), Type:=xlFillDefault
  Sheets("saisie simplifiée").Select
  Range("A26:BZ26").Select
  selection.Copy
  Sheets("base Faits Etablissement").Select
  Range("G5").Select
  selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  :=False, Transpose:=False
  Sheets("saisie simplifiée").Select
  Range( _
  "A2:B2,F2:G2,A7:D7,H6,A12:C12,E12:I12,K12:M12,O12:V12,X12:AA12,AC12,A17,D17:K18,L18,N17:P17,R17:S17,X17:AB17" _
  ).Select
  Range("X17").Activate
  Application.CutCopyMode = False
  selection.ClearContents
End Sub

Pourtant sur des essais simplifiés le même code marche…..

Help !

Le but est d'insérer une ligne 5 (par tassement vers le bas des autres lignes), de récupérer toutes les formules des cellules (entre A et EZ) et de mettre à jour certaines (à partir de G)

Débutant en VBA je ne trouve pas ce qu'il faut faire !

Merci d'avance pour vos lumières.

Michel