Arrêt bouvcle si erreur

Bonjour,

Débutant en VBA, j'aurais grand besoin d'aide...

j'ai le morceau de code suivant , qui sert à intégrer les photos correspondantes au contenu des cellules en colonne F.

Mon problème est que je n'ai pas mis de condition au bout et que quand la denière photo est insérée, ça met un message d'erreur.

J'ai essayé de mettre un nombre Maxi de photos en comptant avec Nbval, mais je ne sais pas comment l'inscrire dans la macro (essai : For i = 6 To m où m = nb maxi de photos) mais ça marche pas (je ne sais pas faire).

l'autre solution est de repérer là où il n' y aura pas de résultat (message d'erreur), mais là non plus je ne sais pas faire

'Dim i As Integer
'For i = 6 To 100
'Range("F" & i).Select
'repertoire = Range("D" & i).Value
'Set monimage = ActiveSheet.Pictures.Insert(repertoire)
'monimage.Height = ActiveCell.Height
'monimage.Width = ActiveCell.Width
'monimage.Top = Range("F" & i).Top
'monimage.Left = Range("F" & i).Left
'Next i