Sub essai()
Sheets("Saisie").Activate
Range("A2:G2").Select
Selection.Copy
Sheets("Page").Activate
Columns(1).Find("*", , , , , xlPrevious).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Saisie").Activate
Range("A2:G2").Select
Selection.ClearContents
End Sub