probleme code entre combobox et opbutton

Private Sub ComboBox1_Change()
With ComboBox1
  If Not .Value = Empty Then Worksheets('' & .Value).Select
End With

End Sub

Private Sub CommandButton1_Click()

Dim I As Integer

For I = 1 To Sheets.Count
If Me.ComboBox1 = Sheets(I).Name Then
Sheets(I).Activate
Unload Me
End If

Next I
End Sub

Private Sub OptionButton1_Click()
Call PasSure(OptionButton1.Name)
End Sub

Private Sub OptionButton2_Click()
Call PasSure(OptionButton2.Name)
End Sub

Private Sub PasSure(ByVal strOptButton As String)
Dim strSalaire As String

With ComboBox1
    While .ListCount > 0
          .RemoveItem (0)
    Wend
    .Value = Empty
    If strOptButton = 'OptionButton1' Then
        strSalaire = 'S1'
    Else
        strSalaire = 'S2'
    End If
    .AddItem strSalaire & 'janvier'
    .AddItem strSalaire & 'fevrier'
End With

End Sub

Cliquez pour agrandir...