XL 2010 Copie de lignes dans nouveaux onglets selon critères

[Romain31]

Bonjour à toutes et à tous,
Un tableau avec des données dont la colonne B contient les département.
Le but est de copier toutes les lignes de chaque département dans de nouveaux onglets (un onglet par département).
A partir d'un code trouvé et "rebricolé", les départements sont bien copiés SAUF le premier, le 2.
Le fichier joint sera certainement plus démonstratif.
Un grand merci pour votre aide et une très bonne journée

 

[pierrejean]

Bonjour Romain31

Avec Sheets(2) on designe la 2eme feuille dans l'ordre
d'ou
code = CStr(a(i, 2))
Do While CStr(a(i, 2)) = code
code devient un string

 

[Romain31]

Merci Pierrejean pour ton aide précieuse et le fichier en retour qui va me permettre d'avancer.