Private Sub Worksheet_Activate()
Dim p As Range, Cel As Range
Application.ScreenUpdating = 0
Rows("21:40").EntireRow.Hidden = False 'Masque les lignes vide des produits
For Each Cel In Range("ContratPret!A21:A40")
If Cel = "" Then If p Is Nothing Then Set p = Cel Else Set p = Union(p, Cel)
Next
p.EntireRow.Hidden = True
End Sub