Sub AjoutImageFeuille()
Dim Shp As Shape
Dim Fichier As String
Dim Cell As Range
Dim k As Integer
For k = 1 To Sheets.Count
With Sheets(k)
Fichier = "C:\" & .Name & ".jpg"
Set Cell = .Range("B10")
Set Shp = .Shapes.AddPicture(Fichier, msoFalse, msoCTrue, Cell.Left, Cell.Top, Cell.Width, Cell.Height)
End With
Next k
End Sub