Dim fe(100)
'identification et écriture des données par feuilles
'Lecture
For i = 2 To Sheets("Compilation").Range("A" & Rows.Count).End(xlUp).Row
'idexation des lignes par référence feuille
fe(Sheets("Compilation").Cells(i, 25).Value) = fe(Sheets("Compilation").Cells(i, 25).Value) + 1
'recopie de la colonne 1 à 25 des données Compilation dans Feuille concernée
For j = 1 To 25
Sheets(Sheets("Compilation").Cells(i, 25)).Cells(fe(Sheets("Compilation").Cells(i, 25)), j) = Sheets("Compilation").Cells(i, j)
Next
Next