Effacer une colonne selon critère

Private Sub Worksheet_Change(ByVal Target As Range)
If IsEmpty(Target) Then Exit Sub
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
If Not IsNumeric(Target.Value) Then
    MsgBox "Donnée non numérique"
    Target.ClearContents
    Exit Sub
End If
Columns(Target.Value).Delete
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim j As Byte
If IsEmpty(Target) Then Exit Sub
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
If IsNumeric(Target.Value) Then
    For j = 2 To 13
        If Cells(1, j).Value = Target.Value Then
            Columns(Target.Value).Delete
        End If
    Next j
Else
    MsgBox "Donnée non numérique"
    Target.ClearContents
End If
End Sub