VBA

Select Case country
     Case "uk"
          Call UK
     Case "austria"
          Call Austria
     'etc...
End Select

Dim salesnmrmri, salessg, saless, salesfo, volumenmrmri, volumesg, volumes, volumefo, aspnmrmri, aspsg, asps, aspfo As Double 

Sub Test()
Dim Country As String
    Country = InputBox("Veuillez saisir le nom du pays.", "CHOIX DU PAYS", "UK")
    If Country = "UK" Then
        UK
    ElseIf Country = "Austria" Then
        Austria
    End If
End Sub
Sub UK()
    MsgBox "Tu as choisi UK"
End Sub
Sub Austria()
    MsgBox "Tu as choisi Austria"
End Sub

Option Explicit
'-------
'Michel_M sur forum CCM 12 Mars 2014 Version 2
Private Sub Workbook_Open()
UserForm1.Show
End Sub 
 

Option Explicit
'Michel_M sur forum CCM 12 Mars 2014 Version 2
'-----
Private Sub UserForm_Initialize()
Cbx_country.RowSource = "B11:B33"
End Sub
'------
Private Sub Cbx_country_Change()
Dim Country As String
Country = Cbx_country
Unload UserForm1
report Country
End Sub

Option Explicit
'Michel_M sur forum CCM 12 Mars 2014 Version 2
Sub report(state)
Dim Sales, Growth, rep As Byte
Dim Lig As Byte

'saisies et vérification si nombre
1: On Error GoTo erreur1
     Sales = InputBox("What are your sales (in k€) for ...?", "NMR/MRI")
     If Not IsNumeric(Sales) Or IsEmpty(Sales) Then GoTo erreur1
     
2: On Error GoTo erreur2
     Growth = InputBox("What is the growth of your sales (in %) for ...?", "NMR/MRI")
     If Not IsNumeric(Growth) Or IsEmpty(Growth) Then GoTo erreur2
     
'incriptions dans Excel
With Sheets(1) 'A ADAPTER AU NOM DE LA FEUILLE
     Lig = .Columns("B").Find(state, .Range("B10"), xlValues).Row
     .Cells(Lig, "C") = CDbl(Sales) 'cdbl pour tenir compte nombre décimal
     .Cells(Lig, "D") = CDbl(Growth) / 100
End With
Exit Sub

'gestionnaire erreurs
erreur1:
rep = MsgBox("Be careful, a numeric value is expected,retry ?", vbYesNo, "NMR/MRI")
If rep = 6 Then GoTo 1
Exit Sub

erreur2:
rep = MsgBox("Be careful, a numeric value is expected,retry ?", vbYesNo, "NMR/MRI")
If rep = 6 Then GoTo 2
End Sub