Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Dim i As Integer
With ActiveSheet
.Rows.Hidden = False
For i = .Cells(.Rows.Count, 2).End(xlUp).Row To 6 Step -1
If .Cells(i, 1).Value < 1 Then .Rows(i).Hidden = True
Next i
End With
Application.ScreenUpdating = True
End Sub
'ThisWorkbook.Sheets("Profil1").range("B6").interior.color
'ThisWorkbook.Sheets("Profil2").range("B6").interior.color
Private Sub Worksheet_SelectionChange(ByVal Target As Range)