Erreur de compilation VBA

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.

Miche

Bonjour Michel du 52 le forum

voilà tu remplaces les trois premières lignes de ta macro par

Sheets("base Faits Etablissement").Rows(5).Insert Shift:=xlDown

tes select ne servent à rien, et tous les autres de ta macro pareil

en fait ta macro est faite avec l'enregistreur de macro, il faut que tu apprennes à faire le ménage après

a+

Papou

grand merci !

Cordialement,

Michel

Bonjour Michel du 52 le forum

n'oublies pas de cliquer sur résolu le v vert

a+

Papou