Worksheets("BDD").Activate
Columns(53).Find("*", , , , , xlPrevious).Offset(1, 0).Select
ActiveCell = Image1
ActiveCell.Offset(0, 1).Select
ActiveCell = Image2
ActiveCell.Offset(0, 1).Select
ActiveCell = Image3
ActiveCell.Offset(0, 1).Select
ActiveCell = Image4
ActiveCell.Offset(0, 1).Selec