Private Sub Worksheet_Change(ByVal Target As Range)
Dim derlig1 As Integer
Application.EnableEvents = False
With Sheets("Of ouverts")
' A quoi sert de définir derlig1 ... pour ne pas l'utiliser ???
derlig1 = Range("B65536").End(xlUp).Row
' A quoi sert de sélectionner une Range ... pour ne pas l'utiliser ???
Range("e13:M900").Select
Selection.Clear
End With
Application.EnableEvents = True
End Sub