3 listes déroulante et plus de 74 solutions

Sub Recherche_Auto_Test()
Dim NumAutoTest As Integer

'tu récupère tes valeurs correspondant à l'autotest
NumAutoTest = Feuil1.Shapes("ZUnite").ControlFormat.Value & _
              Feuil1.Shapes("ZOCTET").ControlFormat.Value & _
              Feuil1.Shapes("ZBIT").ControlFormat.Value


Select Case NumAutoTest

 ' première condition
Case 221, 321, 521, 621, 721
      Sheets("ENT.NEUTRO").Select
      Range("A1").Select
      
 ' Deuxième condition
Case 111, 211, 311, 411, 511, 611, 711, 811, 911, 1011, 1111
      Sheets("POSIT.MMOR").Select
      Range("A1").Select
      
' Xième condition ...
'Case code test
'     Sheets("LaFeuille").Select
'     Range("A1").Select

Case Else
   MsgBox "AutoTest inconnu"

End Select

End Sub