Private Sub Worksheet_Change(ByVal Target As Range)
    MsgBox Target
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Cible As String
    
    'Supprime la validation existante
    Target.Validation.Delete
    
    'Vérifie la couleur de fond de la cellule sélectionnée
    Select Case Target.Interior.ColorIndex
        'si couleur de cellule Jaune
        Case 6: Cible = "dossier réglé"
        'si couleur de cellule rougee
        Case 3: Cible = "dossier en retard"
        'autres
        Case Else: Cible = "Hors zone"
    End Select
    
    'création validation et info-bulle
    With Target.Validation
        .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator:=xlBetween
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputMessage = Cible
        .ShowInput = True
        .ShowError = True
    End With
End Sub

Sub Test()
    'Vérifie si la cellule A1 contient une liste de validation.
    MsgBox ValidationExiste(Range("B1"))
End Sub


Function ValidationExiste(Cell As Range) As Boolean
    Dim Cible As Range
    
    On Error Resume Next
    'Définit toutes les cellules contenant une liste de validation dans la feuille active.
    Set Cible = ActiveSheet.Cells.SpecialCells(xlCellTypeAllValidation)
    On Error GoTo 0
    
    If Not Cible Is Nothing Then
        If Not Intersect(Cible, Cell) Is Nothing Then
            ValidationExiste = True
            Else
            ValidationExiste = False
        End If
    Else
        ValidationExiste = False
    End If
End Function