Re : suprimer image
Bonsoir,
tu as l'air énervé toi
Zen....
Essaye en remplaçant le nom des macros ce trouvant dans workbook par leur contenus:
ATTENTION: place tes déclarations de variable tout en haut de l'objet workbook
Dim shp As Shape
Dim Fichier As String
Dim Cell As Range
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
With ActiveSheet
If .Name = "Index" Then Exit Sub
Fichier = "C:\" & .Name & ".jpg"
Set Cell = .Range("M5:N9")
Set shp = .Shapes.AddPicture(Fichier, msoFalse, msoCTrue, Cell.Left, Cell.Top, Cell.Width, Cell.Height)
End With
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
For Each s In ActiveSheet.Shapes
If s.TopLeftCell.Address = "M5:N9" Then s.Delete
Next s
End Sub
Edit: ok, c'est pas grave