Boutons d'option et Userform VBA

Private Sub UserForm_Initialize()
Dim ctr As Control

    Nom = ActiveCell.Offset(0, 1).Value
    Prenom = ActiveCell.Offset(0, 2).Value
    
    For Each ctr In que1.Controls
       If TypeName(ctr) = "OptionButton" Then
         If ActiveCell.Offset(0, 3).Value = Val(ctr.Caption) Then
             ctr.Value = True
         End If
       End If
    Next

End Sub

Private Sub UserForm_Initialize()
 Dim ValOption As Integer
 ValOption = Cells(ActiveCell.Row, 4).Value
 If ValOption > 0 And ValOption < 6 Then Me.Controls("opt" & ValOption) = True
End Sub

Private Sub CommandButton1_Click()
    Dim c As Range
    Set c = ActiveCell
    c(1, 2).Value = Nom
    c(1, 3).Value = Prenom
    c(1, 4) = Abs((Opt1 * 1) + (Opt2 * 2) + (Opt3 * 3) + (Opt4 * 4) + (Opt5 * 5) + (Opt6 * 6))
    
Unload Infos
End Sub