Adrien
Regarde le Code dans le Module1
Sub Formate()
Dim Lg 'As Byte
Application.ScreenUpdating = False
If Range("F47") = 0 Then Exit Sub
Range([a8], [a48]).EntireRow.Hidden = False
For Lg = 8 To 48
If Range("f" & Lg) = "" Or Range("f" & Lg) = 0 Then
Range("f" & Lg).EntireRow.Hidden = True
End If
Next Lg
End Sub
La ligne
If Range("F47") = 0 Then Exit Sub
arrête la Macro lorsque la cellule F47, qui fait le total des heures, est égale à 0, soit lorsque le tableau est vide.
Cordialement