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