Recherhev avec une vba

bonsoir
j ai fais une macro pour insérer des images en fonction d une plage de cellules ,pour pouvoir insérer plusieurs images avec la même macro
je pourrai insérer jusqu'a 50 images (exemple de macro pour insérer "image 51")

If (Application.VLookup(Range("GD2:GD50"), Range("bilan!GM1:GN300"), 2, False) .Value = "C1") Then
ActiveSheet.Shapes("IMAGE 51").Select
Selection.Copy
Range("R11").Select
ActiveSheet.Paste
Selection.ShapeRange.IncrementLeft -15
Selection.ShapeRange.IncrementTop -50
Selection.Name = "Image 120"
Range("Y2").Select
End If

EDIT : Ajout des balises de code.

bonne soirée