Macro matrice codes pays

  MsgBox CodePays("France") & vbCrLf & _
         CodePays("Korea (the Republic of)") & vbCrLf & _
         CodePays("Jupiter")

Function CodePays(pays As String) As String
  Select Case pays
    Case "Afghanistan": CodePays = "AF"
    Case "Åland Islands": CodePays = "AX"
    Case "Albania": CodePays = "AL"
    Case "Algeria": CodePays = "DZ"
    Case "American Samoa": CodePays = "AS"
    Case "Andorra": CodePays = "AD"
    Case "Angola": CodePays = "AO"
    Case "Anguilla": CodePays = "AI"
    Case "Antarctica": CodePays = "AQ"
    Case "Antigua and Barbuda": CodePays = "AG"
    Case "Argentina": CodePays = "AR"
    Case "Armenia": CodePays = "AM"
    Case "Aruba": CodePays = "AW"
    Case "Australia": CodePays = "AU"
    Case "Austria": CodePays = "AT"
    Case "Azerbaijan": CodePays = "AZ"
    Case "Bahamas (the)": CodePays = "BS"
    Case "Bahrain": CodePays = "BH"
    Case "Bangladesh": CodePays = "BD"
    Case "Barbados": CodePays = "BB"
    Case "Belarus": CodePays = "BY"
    Case "Belgium": CodePays = "BE"
    Case "Belize": CodePays = "BZ"
    Case "Benin": CodePays = "BJ"
    Case "Bermuda": CodePays = "BM"
    Case "Bhutan": CodePays = "BT"
    Case "Bolivia (Plurinational State of)": CodePays = "BO"
    Case "Bonaire, Sint Eustatius and Saba": CodePays = "BQ"
    Case "Bosnia and Herzegovina": CodePays = "BA"
    Case "Botswana": CodePays = "BW"
    Case "Bouvet Island": CodePays = "BV"
    Case "Brazil": CodePays = "BR"
    Case "British Indian Ocean Territory (the)": CodePays = "IO"
    Case "Brunei Darussalam": CodePays = "BN"
    Case "Bulgaria": CodePays = "BG"
    Case "Burkina Faso": CodePays = "BF"
    Case "Burundi": CodePays = "BI"
    Case "Cabo Verde": CodePays = "CV"
    Case "Cambodia": CodePays = "KH"
    Case "Cameroon": CodePays = "CM"
    Case "Canada": CodePays = "CA"
    Case "Cayman Islands (the)": CodePays = "KY"
    Case "Central African Republic (the)": CodePays = "CF"
    Case "Chad": CodePays = "TD"
    Case "Chile": CodePays = "CL"
    Case "China": CodePays = "CN"
    Case "Christmas Island": CodePays = "CX"
    Case "Cocos (Keeling) Islands (the)": CodePays = "CC"
    Case "Colombia": CodePays = "CO"
    Case "Comoros (the)": CodePays = "KM"
    Case "Congo (the Democratic Republic of the)": CodePays = "CD"
    Case "Congo (the)": CodePays = "CG"
    Case "Cook Islands (the)": CodePays = "CK"
    Case "Costa Rica": CodePays = "CR"
    Case "Croatia": CodePays = "HR"
    Case "Cuba": CodePays = "CU"
    Case "Curaçao": CodePays = "CW"
    Case "Cyprus": CodePays = "CY"
    Case "Czechia": CodePays = "CZ"
    Case "Denmark": CodePays = "DK"
    Case "Djibouti": CodePays = "DJ"
    Case "Dominica": CodePays = "DM"
    Case "Dominican Republic (the)": CodePays = "DO"
    Case "Ecuador": CodePays = "EC"
    Case "Egypt": CodePays = "EG"
    Case "El Salvador": CodePays = "SV"
    Case "Equatorial Guinea": CodePays = "GQ"
    Case "Eritrea": CodePays = "ER"
    Case "Estonia": CodePays = "EE"
    Case "Eswatini": CodePays = "SZ"
    Case "Ethiopia": CodePays = "ET"
    Case "Falkland Islands (the) [Malvinas]": CodePays = "FK"
    Case "Faroe Islands (the)": CodePays = "FO"
    Case "Fiji": CodePays = "FJ"
    Case "Finland": CodePays = "FI"
    Case "France": CodePays = "FR"
    Case "French Guiana": CodePays = "GF"
    Case "French Polynesia": CodePays = "PF"
    Case "French Southern Territories (the)": CodePays = "TF"
    Case "Gabon": CodePays = "GA"
    Case "Gambia (the)": CodePays = "GM"
    Case "Georgia": CodePays = "GE"
    Case "Germany": CodePays = "DE"
    Case "Ghana": CodePays = "GH"
    Case "Gibraltar": CodePays = "GI"
    Case "Greece": CodePays = "GR"
    Case "Greenland": CodePays = "GL"
    Case "Grenada": CodePays = "GD"
    Case "Guadeloupe": CodePays = "GP"
    Case "Guam": CodePays = "GU"
    Case "Guatemala": CodePays = "GT"
    Case "Guernsey": CodePays = "GG"
    Case "Guinea": CodePays = "GN"
    Case "Guinea-Bissau": CodePays = "GW"
    Case "Guyana": CodePays = "GY"
    Case "Haiti": CodePays = "HT"
    Case "Heard Island and McDonald Islands": CodePays = "HM"
    Case "Holy See (the)": CodePays = "VA"
    Case "Honduras": CodePays = "HN"
    Case "Hong Kong": CodePays = "HK"
    Case "Hungary": CodePays = "HU"
    Case "Iceland": CodePays = "IS"
    Case "India": CodePays = "IN"
    Case "Indonesia": CodePays = "ID"
    Case "Iran (Islamic Republic of)": CodePays = "IR"
    Case "Iraq": CodePays = "IQ"
    Case "Ireland": CodePays = "IE"
    Case "Isle of Man": CodePays = "IM"
    Case "Israel": CodePays = "IL"
    Case "Italy": CodePays = "IT"
    Case "Ivory Coast": CodePays = "CI"
    Case "Jamaica": CodePays = "JM"
    Case "Japan": CodePays = "JP"
    Case "Jersey": CodePays = "JE"
    Case "Jordan": CodePays = "JO"
    Case "Kazakhstan": CodePays = "KZ"
    Case "Kenya": CodePays = "KE"
    Case "Kiribati": CodePays = "KI"
    Case "Korea (the Democratic People's Republic of)": CodePays = "KP"
    Case "Korea (the Republic of)": CodePays = "KR"
    Case "Kuwait": CodePays = "KW"
    Case "Kyrgyzstan": CodePays = "KG"
    Case "Lao People's Democratic Republic (the)": CodePays = "LA"
    Case "Latvia": CodePays = "LV"
    Case "Lebanon": CodePays = "LB"
    Case "Lesotho": CodePays = "LS"
    Case "Liberia": CodePays = "LR"
    Case "Libya": CodePays = "LY"
    Case "Liechtenstein": CodePays = "LI"
    Case "Lithuania": CodePays = "LT"
    Case "Luxembourg": CodePays = "LU"
    Case "Macao": CodePays = "MO"
    Case "Madagascar": CodePays = "MG"
    Case "Malawi": CodePays = "MW"
    Case "Malaysia": CodePays = "MY"
    Case "Maldives": CodePays = "MV"
    Case "Mali": CodePays = "ML"
    Case "Malta": CodePays = "MT"
    Case "Marshall Islands (the)": CodePays = "MH"
    Case "Martinique": CodePays = "MQ"
    Case "Mauritania": CodePays = "MR"
    Case "Mauritius": CodePays = "MU"
    Case "Mayotte": CodePays = "YT"
    Case "Mexico": CodePays = "MX"
    Case "Micronesia (Federated States of)": CodePays = "FM"
    Case "Moldova (the Republic of)": CodePays = "MD"
    Case "Monaco": CodePays = "MC"
    Case "Mongolia": CodePays = "MN"
    Case "Montenegro": CodePays = "ME"
    Case "Montserrat": CodePays = "MS"
    Case "Morocco": CodePays = "MA"
    Case "Mozambique": CodePays = "MZ"
    Case "Myanmar": CodePays = "MM"
    Case "Namibia": CodePays = "NA"
    Case "Nauru": CodePays = "NR"
    Case "Nepal": CodePays = "NP"
    Case "Netherlands (the)": CodePays = "NL"
    Case "New Caledonia": CodePays = "NC"
    Case "New Zealand": CodePays = "NZ"
    Case "Nicaragua": CodePays = "NI"
    Case "Niger (the)": CodePays = "NE"
    Case "Nigeria": CodePays = "NG"
    Case "Niue": CodePays = "NU"
    Case "Norfolk Island": CodePays = "NF"
    Case "North Macedonia": CodePays = "MK"
    Case "Northern Mariana Islands (the)": CodePays = "MP"
    Case "Norway": CodePays = "NO"
    Case "Oman": CodePays = "OM"
    Case "Pakistan": CodePays = "PK"
    Case "Palau": CodePays = "PW"
    Case "Palestine, State of": CodePays = "PS"
    Case "Panama": CodePays = "PA"
    Case "Papua New Guinea": CodePays = "PG"
    Case "Paraguay": CodePays = "PY"
    Case "Peru": CodePays = "PE"
    Case "Philippines (the)": CodePays = "PH"
    Case "Pitcairn": CodePays = "PN"
    Case "Poland": CodePays = "PL"
    Case "Portugal": CodePays = "PT"
    Case "Puerto Rico": CodePays = "PR"
    Case "Qatar": CodePays = "QA"
    Case "Réunion": CodePays = "RE"
    Case "Romania": CodePays = "RO"
    Case "Russian Federation (the)": CodePays = "RU"
    Case "Rwanda": CodePays = "RW"
    Case "Saint Barthélemy": CodePays = "BL"
    Case "Saint Helena, Ascension and Tristan da Cunha": CodePays = "SH"
    Case "Saint Kitts and Nevis": CodePays = "KN"
    Case "Saint Lucia": CodePays = "LC"
    Case "Saint Martin (French part)": CodePays = "MF"
    Case "Saint Pierre and Miquelon": CodePays = "PM"
    Case "Saint Vincent and the Grenadines": CodePays = "VC"
    Case "Samoa": CodePays = "WS"
    Case "San Marino": CodePays = "SM"
    Case "Sao Tome and Principe": CodePays = "ST"
    Case "Saudi Arabia": CodePays = "SA"
    Case "Senegal": CodePays = "SN"
    Case "Serbia": CodePays = "RS"
    Case "Seychelles": CodePays = "SC"
    Case "Sierra Leone": CodePays = "SL"
    Case "Singapore": CodePays = "SG"
    Case "Sint Maarten (Dutch part)": CodePays = "SX"
    Case "Slovakia": CodePays = "SK"
    Case "Slovenia": CodePays = "SI"
    Case "Solomon Islands": CodePays = "SB"
    Case "Somalia": CodePays = "SO"
    Case "South Africa": CodePays = "ZA"
    Case "South Georgia and the South Sandwich Islands": CodePays = "GS"
    Case "South Sudan": CodePays = "SS"
    Case "Spain": CodePays = "ES"
    Case "Sri Lanka": CodePays = "LK"
    Case "Sudan (the)": CodePays = "SD"
    Case "Suriname": CodePays = "SR"
    Case "Svalbard and Jan Mayen": CodePays = "SJ"
    Case "Sweden": CodePays = "SE"
    Case "Switzerland": CodePays = "CH"
    Case "Syrian Arab Republic (the)": CodePays = "SY"
    Case "Taiwan (Province of China)": CodePays = "TW"
    Case "Tajikistan": CodePays = "TJ"
    Case "Tanzania, the United Republic of": CodePays = "TZ"
    Case "Thailand": CodePays = "TH"
    Case "Timor-Leste": CodePays = "TL"
    Case "Togo": CodePays = "TG"
    Case "Tokelau": CodePays = "TK"
    Case "Tonga": CodePays = "TO"
    Case "Trinidad and Tobago": CodePays = "TT"
    Case "Tunisia": CodePays = "TN"
    Case "Turkey": CodePays = "TR"
    Case "Turkmenistan": CodePays = "TM"
    Case "Turks and Caicos Islands (the)": CodePays = "TC"
    Case "Tuvalu": CodePays = "TV"
    Case "Uganda": CodePays = "UG"
    Case "Ukraine": CodePays = "UA"
    Case "United Arab Emirates (the)": CodePays = "AE"
    Case "United Kingdom of Great Britain and Northern Ireland (the)": CodePays = "GB"
    Case "United States Minor Outlying Islands (the)": CodePays = "UM"
    Case "United States of America (the)": CodePays = "US"
    Case "Uruguay": CodePays = "UY"
    Case "Uzbekistan": CodePays = "UZ"
    Case "Vanuatu": CodePays = "VU"
    Case "Venezuela (Bolivarian Republic of)": CodePays = "VE"
    Case "Viet Nam": CodePays = "VN"
    Case "Virgin Islands (British)": CodePays = "VG"
    Case "Virgin Islands (U.S.)": CodePays = "VI"
    Case "Wallis and Futuna": CodePays = "WF"
    Case "Western Sahara": CodePays = "EH"
    Case "Yemen": CodePays = "YE"
    Case "Zambia": CodePays = "ZM"
    Case "Zimbabwe": CodePays = "ZW"
    Case Else: CodePays = pays
  End Select
End Function