Select Case... ça ne fonctionne pas

Bonjour à vous !

Etant débutante en vba excel je viens vous demander de l'aide car ce programme ne fonctionne pas...

J'aimerais que ce programme ajoute dans la colonne 9 (cellules (i,9)) la région correspondant au département déjà renseigné en colonne 2 (cellules (i,2)). En exécutant ce programme, il ne fonctionne que pour la région Provence Alpes Côte d'Azur et n'affiche rien du tout en colonne 9 pour les départements correspondant aux autres régions.

Avez vous une idée d'où peut venir le problème ? Merci d'avance.

Voici le programme :

Next

Bonjour Fromi et

Pour commencer, quand tu codes, il est préférable d'utiliser "Option Explicit" et de définir tes variables

Ensuite l'inscription de la région n'était pas placée au bon endroit

Option Explicit

Sub Test()
  Dim Département As Integer, Région As String
  Dim Lig As Long, NbLignes As Long
  ' Pour chaque ligne
  For Lig = 2 To NbLignes
    Département = 0
    Région = ""
    Département = Sheets("basededonnées1").Cells(Lig, 2).Value
    Select Case Département
      Case 1, 3, 7, 15, 26, 38, 42, 43, 63, 69, 73, 74
        Région = "Auvergne-Rhône-Alpes"
      Case 21, 25, 39, 58, 70, 71, 89, 90
        Région = "Bourgogne-Franche-Comté"
      Case 22, 29, 35, 36
        Région = "Bretagne"
      Case 18, 28, 36, 37, 41, 45
        Région = "Centre-Val de Loire"
      Case 8, 10, 51, 52, 54, 55, 57, 67, 68, 88
        Région = "Grand Est"
      Case 2, 59, 60, 62, 80
        Région = "Hauts-de-France"
      Case 75, 77, 78, 91, 92, 93, 94, 95
        Région = "Ile-de-France"
      Case 14, 27, 50, 61, 76
        Région = "Normandie"
      Case 16, 17, 19, 23, 24, 33, 40, 47, 64, 79, 86, 87
        Région = "Nouvelle-Aquitaine"
      Case 9, 11, 12, 30, 31, 32, 34, 46, 48, 65, 66, 81, 82
        Région = "Occitanie"
      Case 44, 49, 53, 72, 85
        Région = "Pays de la Loire"
      Case 4, 5, 6, 13, 83, 84
        Région = "Provence-Alpes-Côte d'Azur"
    End Select
    Sheets("basededonnées1").Cells(Lig, 9).Value = Région
  Next
End Sub

A+

Super, ça fonctionne !

Merci beaucoup BrunoM45 !