tout est possible ou presque
J'ai ajouter une procédure qui calcul la position par rapport à la cellule
correction aussi sur fich au lieu de fichv
Cela ne génait pas parcque fich et fichv étaitent identique, mais c'est plus propre
Sub place(fich, posimage)
With Sheets("modele")
.Activate
'calcul de la cellule ou ranger l'image
col = 5
lg = posimage + 5
Cells(lg, col).Select
'insersion de l'image
Set img = .Pictures.Insert(fich)
'Redimensionnement
img.Width = ActiveCell.Width
img.Height = ActiveCell.Height
Call pos(.Cells(lg, col), img)
' Nom du pays
k1 = InStrRev(fich, "\")
nfich = Mid(fich, k1 + 1, Len(fich) - k1 - 10)
.Cells(lg + 1, col) = nfich
'Même procédure pour l'image verso
fichv = Left(fich, Len(fich) - 9) & "verso.jpg"
col = 7
.Cells(lg, col).Select
Set img = .Pictures.Insert(fich)
img.Width = ActiveCell.Width
img.Height = ActiveCell.Height
Call pos(.Cells(lg, col), img)
' Nom du pays
k1 = InStrRev(fichv, "\")
nfich = Mid(fichv, k1 + 1, Len(fichv) - k1 - 10)
.Cells(lg + 1, col) = nfich
End With
End Sub
Sub pos(cellule, image)
x = cellule.Left
l = cellule.Width
ximage = x + (l / 2) - (image.Width / 2)
image.Left = ximage
End Sub