XL 2010 Supprimer lignes de plusieurs feuilles via dictionnaire

[cp4]

Bonjour🙂,

Je me tourne vers vous car je suis bloqué. J'utilise le code ci-dessous pour supprimer des lignes d'une seule feuille.

With Sheets("MaFeuille")
   Dim a, m As Integer
   a = d1.Keys
   For m = UBound(a) To LBound(a) Step -1
    .Rows(a(m)).Delete
   Next m
End With

Cependant, cette fois-ci j'ai récupéré dans un dictionnaire le nom de la feuille et la ligne à supprimer.
J'avoue être bloqué pour mener à bien cette opération.
J'ai réaffecté le dictionnaire dans 2 tableaux Tlig=d1.keys (n° de ligne) et Tfeuil=d1.items (nom de l'onglet).
Merci pour votre aide.

 

[pierrejean]

Bonjour cp4
A tester:

a = d1.Keys
   b = d1.items
   For m = UBound(a) To LBound(a) Step -1
    Sheets(b(m)).Rows(a(m)).Delete
   Next m

 

[cp4]

Bonjour PierreJean😉,

C'est parfait😎. J'avais la solution sous mes yeux et je n'y ai pas du tout penser.
Merci beaucoup. Toute ma gratitude et ma reconnaissance.

Bonne soirée.