Sub aa()
Dim R As Range
Dim C As Range
Dim R2 As Range
Dim cpt&
'--- Cellules contenant une validation ---
On Error Resume Next
Set R = ActiveSheet.Cells.SpecialCells(xlCellTypeAllValidation)
If R Is Nothing Then Exit Sub
On Error GoTo 0
'--- Cellules contenant une validation non avérée ---
For Each C In R
With C.Validation
If Not .Value Then
cpt& = cpt& + 1
If R2 Is Nothing Then
Set R2 = C
Else
Set R2 = Application.Union(R2, C)
End If
End If
End With
Next C
'--- Affichage du résutat ---
If cpt& > 0 Then
MsgBox "Nombre de cellules contenant une validation non avérée = " & cpt&
R2.Select
MsgBox R2.Address(False, False)
End If
End Sub