Sub Répartir()
Dim L%, Commune, Feuille, DL%, NoL%, Qté%
Application.ScreenUpdating = False
Qté = 0
For L = 2 To Range("A65500").End(xlUp).Row
Commune = Cells(L, "P")
If Application.CountIf(Sheets("Data").[A:A], Commune) = 0 Then
MsgBox "La commune " & Commune & " n'est pas référencée dans Data." ' Le CP n'est pas dans la base
Else
NoL = Application.Match(Commune, Sheets("Data").[A:A], 0): Feuille = Sheets("Data").Cells(NoL, "D")
If FeuilleExiste(Feuille) = False Then
MsgBox "La feuille " & Feuille & " n'existe pas." ' la feuille n'existe pas
Else
Dossier = Cells(L, "A")
If Application.CountIf(Sheets(Feuille).[A:A], Dossier) = 0 Then ' Dossier non enregistré
DL = 1 + Sheets(Feuille).Range("A65500").End(xlUp).Row
Sheets(Feuille).Range("A" & DL & ":P" & DL) = Range("A" & L & ":P" & L).Value
Qté = Qté + 1
End If
End If
End If
Next L
MsgBox "Nombre de dossier exportés : " & Qté
End Sub