Private Sub UserForm_Initialize()
Dim cbk(1 to 3) As Control, opt(1 to 3) As Control
set cbk(1) = BQ1: set cbk(2)= BQ2: set cbk(3) = BQ3
set opt(1) = P1: set opt(2)= P2: set opt(3) = P3
cbk(1).Value = True
cbk(2).Value = True
cbk(3).Value = True
opt(1).Value = True
opt2).Value = False
opt(3).Value = False
Call FiltreBanque
End Sub