Bonjour Joco7915
Je remets le fichier un peu plus propre, si non ce que tu as fait n'a rien changé
Sub Sauvegarde()
'
' Sauvegarde Macro
'
'
Range("A2:G2").Select
Selection.Copy
Rows("6:6").Select
Selection.Insert Shift:=xlDown 'erreur est ICI
Range("A6:G6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A2").Select
Application.CutCopyMode = False
End Sub