Sub Supprimer()
Ref = Cells(ActiveCell.Row, 1)
Nature = Cells(9, ActiveCell.Column)
Modif = ActiveCell.Value
Sheets("Historique ").Select
Application.Goto Range("A10"), True
Rows(10).Insert
Rows(10).AutoFit
Cells(10, 1) = Ref
Cells(10, 7) = "Suppression"
Cells(10, 9) = Range("M7").Value
Sheets("Evaluation").Select
Application.DisplayAlerts = False
Cancel = True
Selection.EntireRow.Delete
Application.DisplayAlerts = True
End Sub