Option Explicit
Private Sub ToggleButton1_Click()
Dim datas, lig As Long
Application.ScreenUpdating = False
datas = [F1:I1].Resize(Cells(Rows.Count, 7).End(xlUp).Row).Value
If ToggleButton1 Then
For lig = 4 To UBound(datas)
Rows(lig).Hidden = Not (datas(lig, 1) <> "" Or datas(lig, 4) <> "")
Next lig
Else
Rows.Hidden = False
End If
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row < 4 Then Exit Sub
If Target.Column = 6 Or Target.Column = 9 Then
Cancel = True
Target.Value = IIf(Target.Value = "ü", "", "ü")
End If
End Sub