Private Sub Worksheet_Change(ByVal Target As Range)
Dim Plage As Range
Set Plage = Range("F15:F65000")
If Target.Count > 1 Or Application.Intersect(Target, Plage) Is Nothing Then Exit Sub
Target.Offset(0, 1).Resize(, 2).ClearContents
Target.Offset(0, 5).Resize(, 145).ClearContents
End Sub