Bonjour,

J'essaye d'optimiser une macro pour l'utilisateur mais aussi pour ma compréhension personnelle,après des essais en pas en pas, j'ai trouvé la boucle qui prend tout le temps (une minute) d'exécution de la macro, voici le code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
For i = derligPdf To 1 Step -1
If Cells(i, 40).Value = "X" Then
    For Each shap In ActiveSheet.Shapes
    If shap.TopLeftCell.Row = i Then shap.Delete
    Next
Cells(i, 40).EntireRow.Delete
End If
Next i
en fait il n'y a qu'une image maximum (ou pas) par ligne à supprimer et je me demande si ce code n'est pas optimisable en précisant je ne sais quoi dans la position de l'image

j'ai fait pas mal d'essai mais j'ai rien trouvé de mieux que ce code

pour info derligPDF = 1350 et il y a au maximum 80 lignes contenant une seule image

si vous pouvez me conseiller des pistes merci