[RESOLU] : combobox et relation avec option button

Private Sub OptionButton1_Click()
GarnirAvec Feuil1
End Sub
Private Sub OptionButton2_Click()
GarnirAvec Feuil2
End Sub
Private Sub OptionButton3_Click()
GarnirAvec Feuil3
End Sub
Sub GarnirAvec(ByVal F As Worksheet)
ComboBox1.List = F.[A4].Resize(F.[A60000].End(xlUp).Row - 3).Value
End Sub

Private Sub OptionButton1_Click()
GarnirAvec Feuil1.[A4]
End Sub
Private Sub OptionButton2_Click()
GarnirAvec Feuil2.[C2]
End Sub
Private Sub OptionButton3_Click()
GarnirAvec Feuil3.[B6]
End Sub
Sub GarnirAvec(ByVal CelDép As Range)
ComboBox1.List = CelDép.Resize(CelDép.Offset(60000).End(xlUp).Row - CelDép.Row + 1).Value
End Sub

Private Sub OptionButton1_Click()
ComboBox1.Clear
ComboBox1.List = Sheets(1).[A4].Resize(Sheets(1).[A60000].End(xlUp).Row - 3).Value
End Sub
Private Sub OptionButton2_Click()
ComboBox1.Clear
ComboBox1.List = Sheets(2).[C2].Resize(Sheets(2).[C60000].End(xlUp).Row - 3).Value
End Sub
Private Sub OptionButton3_Click()
ComboBox1.Clear
ComboBox1.List = Sheets(3).[B6].Resize(Sheets(3).[B60000].End(xlUp).Row - 3).Value
End Sub