Lors du changement de cellule la "Sub TOTO" est appeller. Elle doit créer un liste déroulante dans le champs voisin selon un "Range" de données.  Est ce que vous avez une petit idée ?
 
 
Voici une partie du code :
 
 
Sub TOTO()
 
    ActiveCell.Select
    XX = ActiveCell.Row
    Données = ActiveCell.Value
    Sheets("Gabarit M-O" ).Select
     
Select Case Données
 
        Case "00"
          ListArray = Sheets("macro" ).Range("AC2:AC3" ).Value
         
          ActiveCell.Offset(0, 1).Select
          ActiveCell.Application.AddCustomList ListArray    << c'est ici que ca marche pas>>
         
        Case "01"
         
        '...
        '...
        '...
         
         
        End case      
           
 End sub
 
 
 
 
Merci
 
 

Bonjour,
j'ai enregistré une macro pour la création d'une liste déroulante , après avoir donné un nom à AC2:AC3  (toto)
elle peut t'inspirer:
   
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=toto"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
 
Cordialement