Insérer photo dans cellule

Bonjour,

Je souhaiterais créer un complément Excel en créant une fonction qui insère une photo dans la cellule où est écrite la fonction.

Celle-ci doit se présenter avec deux variables qui complèteront le chemin d'accès de l'image. Les colonnes des variables ne sont pas toujours à la même place en fonction des fichiers utilisés.

Il faudrait aussi que la fonction complète automatiquement les lignes suivantes jusqu'à la dernière ligne non vide du fichier.

J'ai fait ce code ci-dessous mais cela ne fonctionne pas comme je le souhaite.

Function InsererImage1(Variable1 As Range, Variable2 As Range, Plage As Range)

    Dim cell As Range
    Dim CheminImage As String
    Dim clV1 As Integer
    Dim clV2 As Integer
    Dim Var1 As String
    Dim Var2 As String
    
    clV1 = Variable1.Column
    clV2 = Variable2.Column
        
   ' Chemin vers l'image à insérer
    CheminImage = "C:\Chemin_à_personnaliser\" ' Remplacez ceci par le chemin de votre image
    
   ' Parcours de chaque ligne de la plage de données
    
    For Each cell In Plage.Rows
        
        Var1 = cell.Cells(cell.row, clV1).Value
        Var2 = cell.Cells(cell.row, clV2).Value
        
        cell.InsertPictureInCell (CheminImage & Var1 & "\" & Var2 & ".jpg")
        
    Next cell

End Function

Merci pour votre aide et bonne journée.
Windows / Chrome 123.0.0.0