Sub CacheLigne()
For Each c In Range("A4", "A11")
If Application.CountA(Range(c.Offset(, 1), c.Offset(, 11))) < 1 Then c.EntireRow.Hidden = True
If Application.CountA(Range(c.Offset(, 1), c.Offset(, 12))) = 1 And Cells(c.Row, "F") <> "" Then c.EntireRow.Hidden = True
Next c
End Sub