code pour option button

Option Explicit
Private Sub OptionButton1_Change()
Range("L6").Value = IIf(OptionButton1, OptionButton1.Caption, "")
End Sub
Private Sub OptionButton2_Change()
Range("M6").Value = IIf(OptionButton2, OptionButton2.Caption, "")
End Sub

Private Sub OptionButton1_Click()
Range("J6").Value = IIf(OptionButton1, OptionButton1.Caption, "")
End Sub

Private Sub OptionButton10_Click()
Range("J10").Value = IIf(OptionButton10, OptionButton10.Caption, "")
End Sub

Private Sub OptionButton11_Click()
Range("J11").Value = IIf(OptionButton11, OptionButton11.Caption, "")
End Sub

Private Sub OptionButton12_Click()
Range("J11").Value = IIf(OptionButton12, OptionButton12.Caption, "")
End Sub

Private Sub OptionButton13_Click()
Range("J13").Value = IIf(OptionButton13, OptionButton13.Caption, "")
End Sub

Private Sub OptionButton14_Click()
Range("J13").Value = IIf(OptionButton14, OptionButton14.Caption, "")
End Sub

Private Sub OptionButton15_Click()
Range("J12").Value = IIf(OptionButton15, OptionButton15.Caption, "")
End Sub

Private Sub OptionButton16_Click()
Range("J12").Value = IIf(OptionButton16, OptionButton16.Caption, "")
End Sub

Private Sub OptionButton2_Click()
Range("J6").Value = IIf(OptionButton2, OptionButton2.Caption, "")
End Sub

Private Sub OptionButton3_Click()
Range("J7").Value = IIf(OptionButton3, OptionButton3.Caption, "")
End Sub

Private Sub OptionButton4_Click()
Range("J7").Value = IIf(OptionButton4, OptionButton4.Caption, "")
End Sub

Private Sub OptionButton5_Click()
Range("J8").Value = IIf(OptionButton5, OptionButton5.Caption, "")
End Sub

Private Sub OptionButton6_Click()
Range("J8").Value = IIf(OptionButton6, OptionButton6.Caption, "")
End Sub

Private Sub OptionButton7_Click()
Range("J9").Value = IIf(OptionButton7, OptionButton7.Caption, "")
End Sub

Private Sub OptionButton8_Click()
Range("J9").Value = IIf(OptionButton8, OptionButton8.Caption, "")
End Sub

Private Sub OptionButton9_Click()
Range("J10").Value = IIf(OptionButton9, OptionButton9.Caption, "")
End Sub