Sub afficher()
Dim x As Long
With Sheets("Sheet1")
x = .Range("o2")
If .Cells(x, 1).EntireRow.Hidden = True Then _
.Cells(x, 1).EntireRow.Hidden = False
End With
With Sheets(2)
x = Sheets(1).Range("o2")
For i = 1 To 50
If i = x + 6 And .Rows(i).EntireRow.Hidden = True Then: _
.Rows(i).EntireRow.Hidden = False: Exit Sub
Next
End With
End Sub
Sub masquer()
Dim x As Long
With Sheets("Sheet1")
x = Range("o2")
.Cells(x, 1).EntireRow.Hidden = True
End With
With Sheets(2)
x = Sheets(1).Range("o2")
For i = 1 To 50
If i = x + 6 And .Rows(i).EntireRow.Hidden = False Then: _
.Rows(i).EntireRow.Hidden = True: Exit Sub
Next
End With
End Sub