If optionele Then 'Si coché ...
Range("E2") = "electricite"
Else: Range("E2") = "non coché"
End If
If optioneau Then 'Si coché ...
Range("E2") = "eau"
Else: Range("E2") = "non coché"
End If
If optiontel Then 'Si coché ...
Range("E2") = "telecom"
Else: Range("E2") = "non coché"
End If
If optionmul Then 'Si coché ...
Range("E2") = "reseau multiple"
Else: Range("E2") = "non coché"
End If
If optionpar Then 'Si coché ...
Range("E2") = "particulier"
Else: Range("E2") = "non coché"
End If