Sub Entites_Click()
Dim ChoixDELP As String
If DELP16.Value = True Then
ChoixDELP = "POITOU CHARENTES EST"
ElseIf DELP17.Value = True Then
ChoixDELP = "POITOU CHARENTES OUEST"
ElseIf DELP19 = True Then
ChoixDELP = "LIMOUSIN"
ElseIf DELP24.Value = True Then
ChoixDELP = "AQUITAINE NORD"
Else: ChoixDELP = "GIRONDE"
End If
' Après avoir donné une valeur à la variable
' On inscrit le résultat
Range("D6").Value = ChoixDELP
End Sub