Sub Macro1()
Dim TL As Variant
TL = Array(31, 32, 33, 58, 59, 60, 85, 86, 87)
For I = UBound(TL, 1) To LBound(TL, 1) Step -1
Rows(TL(I)).Delete
Next I
End Sub
je remarque une constante : les lignes à supprimer comportent chacune une ligne vide ainsi qu'une troisième avec le mot "Site".
A ce titre, les lignes 4,5,6 ne sont pas concernées ou servent-elles alors de 'nom' pour ton tableau ?
Si c'est un oneshot, pas de 'blèm, si tu dois refaire ceci pour d'autres séries de données, le mieux serait de savoir si ces conditions se répètent de façon régulière!
ci joint un exemple manuel avec formules et procédure explicitées
Si tu refais ce genre de travail régulièrement je peux l'automatiser à condition d'avoir un extrait anonymisé d'une vingtaine de lignes qui me permet de paramétrer la procédure de manière cohérente
voici une façon de faire avec un bouton de commande (d'autres possibilités existent, forcément).
Ce code suppose que tes données seront TOUJOURS encodées et structurées de la même façon! Si tel ne devait pas être le cas, prière de nous en aviser que l'on puisse tenir compte de ces différences de collecte de données!