Private Sub btnValider_Click()
Application.ScreenUpdating = False
Sheets("rapport astreinte").Range("a1:e40").Clear
Sheets("Modèle").Range("a1:e40").Copy Sheets("rapport astreinte").Range("a1")
Application.CutCopyMode = 0
'pour enlever la sélection de la plage
Application.Goto Sheets("rapport astreinte").Range("a2")
End Sub