Sub Bouton4_QuandClic()
Sheets("Récapitulatif prof").Range("A65536").End(xlUp).Offset(1, 0) = Sheets("Saisie élève").Range("A2")
Sheets("Saisie élève").Range("D5:H5").Copy Destination:=Sheets("Récapitulatif prof").Range("B" & Sheets("Récapitulatif prof").Range("A65536").End(xlUp).Row)
Sheets("Saisie élève").Range("D5:H5").ClearContents
End Sub