Private Sub Worksheet_Change(ByVal Target As Range)
With Target
ActiveSheet.Unprotect "Test"
If .Address(ColumnAbsolute:=False) = "F1" Then
With Range("F1").ListObject
If .ListRows.Count > 0 Then
If .ListRows(.ListRows.Count).Range(1, "K") <> 0 Then .ListRows.Add
Else
.ListRows.Add
End If
End With
ElseIf .Address(False, False) = "B5" Then
If Not Intersect(Target, Range("B5")) Is Nothing And Range("B5") <> 0 Then
Worksheets(Worksheets("LISTE").Range("B5").Value).Visible = True
Worksheets("LISTE").Range("B5").Select
Worksheets("LISTE").Range("B5").ClearContents
End If
ElseIf .Address(False, False) = "B6" Then
If Not Intersect(Target, Range("B6")) Is Nothing And Range("B6") <> 0 Then
Worksheets(Worksheets("LISTE").Range("B6").Value).Visible = False
Worksheets("LISTE").Range("B6").Select
Worksheets("LISTE").Range("B6").ClearContents
End If
End If
End With
ActiveSheet.Protect "Test", True, True, True, False, False, False, False, False, False, False, False, False, False, False, True
End Sub