macro effacer colonne lors saisie

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim vL
    vL = Target
    Application.EnableEvents = False
    If Not Intersect(Target, [L:L]) Is Nothing Then
        [L:L].ClearContents
        Target = vL
    End If
    Application.EnableEvents = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C8:J15047]) Is Nothing Then Exit Sub
If Not IsEmpty(Target) And Target.Count = 1 Then
If IsNumeric(Target) Then
Application.EnableEvents = False
Target = Target / 100
Application.EnableEvents = True
End If
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.MoveAfterReturnDirection = xlToRight
If Target.Column = 12 Then Columns(12).ClearContents
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim vL
    vL = Target
    Application.EnableEvents = False
    If Not Intersect(Target, [L:L]) Is Nothing Then
        [L:L].ClearContents
        Target = vL
    ElseIf Not Intersect(Target, [C8:J15047]) Is Nothing Then
        If Not IsEmpty(Target) And Target.Count = 1 Then
        If IsNumeric(Target) Then Target = Target / 100
    End If
    Application.EnableEvents = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim vL
    vL = Target
    Application.EnableEvents = False
    If Not Intersect(Target, [L:L]) Is Nothing Then
        [L:L].ClearContents
        Target = vL
    ElseIf Not Intersect(Target, [C8:J15047]) Is Nothing Then
        If Not IsEmpty(Target) And Target.Count = 1 Then
            If IsNumeric(Target) Then Target = Target / 100
        End If
    End If
    Application.EnableEvents = True
End Sub