Private Sub CommandButton1_Click()
Dim i As Integer
'reaffiche tous les dimanches
Rows('8:41').Hidden = False
With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) = False Then
Rows(.List(i, 1)).Hidden = True
num = num + 1
End If
Next i
'La modif est ici
If num = .ListCount Then
For i = 0 To .ListCount - 1
Rows(.List(i, 1)).Hidden = False
Next i
MsgBox 'vous n'avez rien sélectionné'
End If
End With
End Sub