Sub BDD_MAJ()
Application.ScreenUpdating = False
With Sheets("bdd")
.Range("b65536").End(xlUp)(2).Resize(, 4).Value = Sheets("eleves").Range("a3:d3").Value
.Range("f65536").End(xlUp)(2) = Date
.Range("a65536").End(xlUp)(2).Value = "=ROW(RC[1])-4": .Range("a65536").End(xlUp)(2).Value = .Range("a65536").Value: .Cells.EntireColumn.AutoFit:
End With
Sheets("eleves").Range("a3:d3").ClearContents
Application.ScreenUpdating = True
End Sub