Vérifier la presence ou non d'une image en cellules

Sub ListeImg()
Dim Txt$, sh As Shape, c%
For Each sh In ActiveSheet.Shapes
    If sh.Type = msoPicture Then
        Txt = Txt & sh.TopLeftCell.Address & " : " & sh.Name & vbCrLf
        c = 1
    End If
Next
If c = 1 Then
    MsgBox "les cellules suivantes contiennent des images" & vbCrLf & Txt
Else
    MsgBox "il n'y a pas d'image"
End If
End Sub

Sub test()
Dim Sh As Shape, Plage As Range
For Each Sh In ActiveSheet.Shapes
    If Plage Is Nothing Then
        Set Plage = Sh.TopLeftCell
    Else
        Set Plage = Union(Plage, Sh.TopLeftCell)
    End If
Next Sh
MsgBox "Adresses des cellules : " & Plage.Address(0, 0)
End Sub

'...
If Sh.Type = msoPicture Or Sh.Type = msoLinkedPicture Then
'...