Filtre avec optionbutton

Private Sub OptionButton1_Click()
Dim Cel As Range, MonDico As Object
Set MonDico = CreateObject("Scripting.Dictionary")
For Each Cel In Range("A2:A" & Range("A65536").End(xlUp).Row)
If Cel.Offset(0, 6) <> "" Then
 If Not MonDico.Exists(Cel.Value) Then MonDico.Add Cel.Value, Cel.Value
End If
Next
Me.Critere1.List = MonDico.items
Set MonDico = Nothing
End Sub
Private Sub OptionButton2_Click()
Dim Cel As Range, MonDico As Object
Set MonDico = CreateObject("Scripting.Dictionary")
For Each Cel In Range("A2:A" & Range("A65536").End(xlUp).Row)
If Cel.Offset(0, 6) = "" Then
 If Not MonDico.Exists(Cel.Value) Then MonDico.Add Cel.Value, Cel.Value
End If
Next
Me.Critere1.List = MonDico.items
Set MonDico = Nothing

End Sub