''''' Dim maShape As Shape
''''' Dim C As Range
'''''
''''' For Each C In Range("J1:J200")
''''' For Each maShape In ActiveSheet.Shapes
''''' If Intersect(maShape.TopLeftCell, C) Is Nothing Then
''''' '
''''' Else
''''' MsgBox maShape.Name & " est avec " & C.Row
''''' Exit For
''''' End If
''''' Next maShape
''''' Next C