Bonjour à toutes et tous,

Sujet simple apparemment mais qui ne fonctionne pas chez moi...

Je voudrais supprimer la ligne 13 par exemple de toutes mes feuilles excel, pour ça je met comme j'ai trouvé PARTOUT sur le net :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Sub Modifier_Colonne()
    Dim WS As Worksheet
    For Each WS In Sheets
        Range("D13").Select
        Selection.EntireRow.Delete
    Next WS
End Sub
J'ai même essayé 36.000 noms différents à la place de "Sheets" (comme ThisWorkbook.Worksheets Application.Worksheets )mais y'a rien à faire, les feuilles ne sont pas parcourues. Seule la première feuille a bien la ligne 13 effacée.
De plus en faisant du pas à pas dans mon code, la boucle marche, mais reste à la feuille 1 et ne va pas à 2 /3 /4 ...

Merci pour toute aide