Private Sub Worksheet_Change(ByVal Target As Range)
Dim C As Range, I As Long, Ligne As Variant, Img As Object
If Target.Address <> "$B$2" Then Exit Sub
Application.ScreenUpdating = False
For I = ActiveSheet.DrawingObjects.Count To 1 Step -1
If UCase(ActiveSheet.DrawingObjects(I).Name) <> "LOGO" Then
ActiveSheet.DrawingObjects(I).Delete
End If
Next I
For Each C In Range("A7", Cells(Rows.Count, 1).End(xlUp))
Application.EnableEvents = False
With Sheets("Photo")
For I = 1 To .DrawingObjects.Count...