ReDim TR(1 To 100, 1 To 26)
LE = 2
TR(5, 1) = UCase("Images particuliéres")
Set Rng = PlageSuivante(TR, LR)
LTot = Rng.Rows.Count + 1
If Range("AC27") = True Then
Sheets("Feuil2").Shapes("Image 5").Copy
Rng.Worksheet.Paste
With Rng.Worksheet.Shapes(Rng.Worksheet.Shapes.Count)
.Left = Rng(8, 22).Left
.Top = Rng(8, 22).Top
End With
Range("AF27").Copy
Rng(10, 8).PasteSpecial xlPasteValues
End If
If Range("AC33") = True Then
Sheets("Feuil2").Shapes("Image 7").Copy
Rng.Worksheet.Paste
With Rng.Worksheet.Shapes(Rng.Worksheet.Shapes.Count)
.Left = Rng(14, 22).Left
.Top = Rng(14, 22).Top
End With
Range("AF33").Copy
Rng(16, 8).PasteSpecial xlPasteValues
End If
If Range("AC39") = True Then
Sheets("Feuil2").Shapes("Image 9").Copy
Rng.Worksheet.Paste
With Rng.Worksheet.Shapes(Rng.Worksheet.Shapes.Count)
.Left = Rng(20, 22).Left
.Top = Rng(20, 22).Top
End With
Range("AF39").Copy
Rng(22, 8).PasteSpecial xlPasteValues
End If