For Each n In Names
If Instr(n.Name,"Matiere")=0 Then
leContenu = Mid(ActiveWorkbook.Names(n.Name), 3, _
(Len(ActiveWorkbook.Names(n.Name)) - 3))
With ActiveSheet.Shapes(leContenu)
If leTop < .Top And leTop > -1 Then GoTo suite1
leTop = .Top
suite1:
If leLeft < .Left And leLeft > -1 Then GoTo suite2
leLeft = .Left
suite2:
End With
End If
Next n