Dim PlageValeurs As Range
Private Sub CommandButton1_Click()
Dim c As Range
Dim tblValeurs(0 To 3)
tblValeurs(0) = CheckBox1 * -0.5
tblValeurs(1) = CheckBox2 * -1
tblValeurs(2) = CheckBox3 * -1.5
tblValeurs(3) = CheckBox4 * -2
For Each c In PlageValeurs
If c > 0 Then c.EntireRow.Hidden = Not IsError(Application.Match(c, tblValeurs, 0))
Next c
Unload Me
End Sub
Private Sub UserForm_Initialize()
With Feuil1
Set PlageValeurs = .Range("I2:I" & .Range("I" & .Rows.Count).End(xlUp).Row)
End With
End Sub