Code vba bloque à l'ajout d'une nouvelle entrée

Bonjour,

J'ai un problème avec mon code. J'ai 4 catégories récurrentes avec une valeur attribué à chacun:

légumes = 1

fruit = 2

viande = 3

poisson = 4

Jusque-là, le code fonctionne, mais il arrive occasionnellement que je rentre des nouvelles  catégories et je souhaiterai pouvoir attribuer une valeur. le code ne me le permet pas.

Quand je supprimer le Else, le code bloque

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

For ligne = 1 To 50

   If Cells(ligne, 2) = "légume" Then
      Cells(ligne, 3).Value = "1"
   Else
     Cells(ligne, 3).Value = ""
   
   If Cells(ligne, 2) = "fruit" Then
      Cells(ligne, 3).Value = "2"
   Else
     Cells(ligne, 3).Value = ""
     
   If Cells(ligne, 2) = "viande" Then
     Cells(ligne, 3).Value = "3"
   Else
     Cells(ligne, 3).Value = ""
     
   If Cells(ligne, 2) = "poisson" Then
      Cells(ligne, 3).Value = "4"
   Else
     Cells(ligne, 3).Value = ""
    
   End If
   End If
   End If
   End If
    
Next ligne

End Sub
 

Windows / Edge 112.0.1722.48