Bonjour,
j'utilise présentement cette macro pour inserrer une image:
If Intersect(ActiveCell, Range("e3,g3,i3,k3,m3,o3,e8,g8,i8,k8,m8,o8,e13,g13,i13,k13,m13,o13,e18,g18,i18,k18,m18,o18,e23,g23,i23,k23,m23,o23")) Is Nothing Then Exit Sub
ActiveSheet.Pictures.Insert( _...