Sub AfficheSynthese()
Dim deb%, L As Integer
Application.ScreenUpdating = False
deb = 6
For L = 6 To [B65536].End(xlUp).Row
If Left(Trim(Range("B" & L)), 5) = "TOTAL" Then
Rows(deb & ":" & L - 1).EntireRow.Hidden = True
deb = L + 2
End If
Next
End Sub