Sub Delete_All_Imgs()
Dim supprIMG, i As Byte
On Error Resume Next
supprIMG = Array("C149:H160", "K149:O160", "C162:H174", "K162:O174", "C176:H188", "K176:O188")
For i = LBound(supprIMG) To UBound(supprIMG)
ActiveSheet.Shapes("img" & supprIMG(i)).Delete
Next
End Sub
(Il y a l de trop et un espace de trop)Desole
staplle 1600 j ai fait ton test et il n'efface effectivement que les images en colonne b et g
Sub Delete_IMG1()
On Error Resume Next
ActiveSheet.Shapes("imgC149:H160").Delete
End Sub
Sub Delete_All_Imgs()
Dim supprIMG, i As Byte
On Error Resume Next
supprIMG = Array("C149:H160", "K149:O160", "C162:H174", "K162:O174", "C176:H188", "K176:O188")
For i = LBound(supprIMG) To UBound(supprIMG)
ActiveSheet.Shapes("img" & supprIMG(i)).Delete
Next
End Sub
ça aussi on va le mettre sur le compte du confinementprévu par contre effacement rencontre un bug des que l'emplacement de mes photos et vide