Pour les réfractaires à ouvrir le fichier. Le code actuel :
Sub GénérerClasseurs()
Dim aa, rh, ln, EPCI(), plgET As Range, chD$, k%, n&, i&, d As Object
With Worksheets("Etat 2")
i = .Range("A" & .Rows.Count).End(xlUp).Row
If i <= 1 Then Exit Sub
k =...