VBA - Vérifier la présence d'une liste de validation

Sub Test()
    'Vérifie si la cellule B1 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

Function estListe(c As Range)
  On Error Resume Next
  tmp = c.Validation.Formula1
  estListe = (Err = 0)
End Function