Sub CréeBulles()
For Each s In ActiveSheet.Shapes
bulle = Application.VLookup(s.Name, [légendes], 2, False) & Chr(10) & Application.VLookup(s.Name, [légendes], 3, False)
If Not IsError(bulle) Then
ActiveSheet.Hyperlinks.Add Anchor:=s, Address:="", SubAddress:=""
s.Hyperlink.ScreenTip = bulle & Chr(10) & "...."
End If
Next s
End Sub