Bonjour, Salut jmd !
Private Sub Worksheet_Change(ByVal Target As Range)
Dim nImg$, n%, L!, T!, img As Object
If Target.Address = "$A$2" Then
nImg = Target
n = Me.Shapes.Count - 1
With Me.Range("C5")
L = .Left + (.Width / 7) * (n Mod 7) + .Width / 14
T = .Top + (.Height / 6) * (n \ 7) + .Height / 12
End With
Application.ScreenUpdating = False
[VEHIC].Worksheet.Shapes(nImg).Copy
Set img = Me.Pictures.Paste(False)
img.Left = L: img.Top = T
End If
End Sub
A défaut d'informations précises, je me les suis précisé moi-même ! Donc, tes images vont s'aligner dans ta cellule colorée au fil de tes sélections en A2 : 7 par ligne. La cellule peut contenir 6 lignes, mais cela peut continuer au-delà, il n'y a pas de verrou.
Les mêmes peuvent être sélectionnées plusieurs fois, pas de verrou non plus sur ce point...
Cordialement.