If Cells(1, 1).Value = 'Célibataire' Then
OptionButton1 = True
End If
If Cells(1, 1).Value = 'Marié' Then
OptionButton2 = True
End If
If Cells(1, 1).Value = 'PACSE' Then
OptionButton3 = True
End If
If Cells(1, 1).Value = 'Divorcé' Then
OptionButton4 = True
End If
If Cells(2, 1) = 'SPP' Then
CheckBox1 = True
CheckBox2 = False
CheckBox3 = False
End If
If Cells(2, 1) = 'SPV' Then
CheckBox1 = False
CheckBox2 = True
CheckBox3 = False
End If
If Cells(2, 1) = 'Stagiaire' Then
CheckBox1 = False
CheckBox2 = False
CheckBox3 = True
End If
If Cells(2, 1) = 'SPP SPV' Then
CheckBox1 = True
CheckBox2 = True
CheckBox3 = False
End If
If Cells(2, 1) = 'SPP Stagiaire' Then
CheckBox1 = True
CheckBox2 = False
CheckBox3 = True
End If
If Cells(2, 1) = 'SPV Stagiaire' Then
CheckBox1 = False
CheckBox2 = True
CheckBox3 = True
End If