Sub InsererBarre()
Dim NomCompletImage As String
Dim Sh As Shape
Dim Left As Integer
Dim Top As Integer
Dim Width As Integer
Dim Height As Integer
Left = ActiveCell.Left + 12
Top = ActiveCell.Top
Width = 10
Height = ActiveCell.Height
Set Sh = ActiveSheet.Shapes.AddShape(msoShapeRectangle, Left, Top, Width, Height) 'left, top, width, heigth
NomCompletImage = "H:\Téléchargements\2020-06-18_142553.jpg"
Sh.Fill.UserPicture NomCompletImage
End Sub