Insertion automatique photo en fonction valeur d'1 cellule

'afficher image
Private Sub CommandButton1_Click()
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long
image = ActiveSheet.Shapes.Count
If image > 0 Then Exit Sub
    Set FL1 = Worksheets("Liste médicaments")
    NoCol = 7 'lecture de la colonne 1
    For NoLig = 2 To Split(FL1.UsedRange.Address, "$")(4)
        FL1.Cells(NoLig, NoCol).Select
    nom = FL1.Cells(NoLig, NoCol).Value
     Selection.Offset(0, -3).Select
       InsererImage
    Next
    Set FL1 = Nothing
End Sub