' pour figer l'ecran
Application.ScreenUpdating = False
'initialisation n=ligne de la colonne C ou debuter le test
n = 5
' test: feuille Main, colonne c ,ligne n, n'est pas END
While Sheets("Main").Range("C" & n) <> "END"
' teste non vide
If Sheets("Main").Range("C" & n) <> "" Then
'initialisation ligne ou debuter l'inscription dans la nouvelle feuille
y = 5
'création de la nouvelle feuille par copie de Template
Sheets("Template").Copy After:=Sheets(2)
'On nomme la nouvelle feuille
ActiveSheet.Name = Left(Sheets("Main").Range("C" & n), 31)
'initialisation de l'increment pour le test colonne D
x = 0
'test feuille Main colonne D ligne n+x
While Sheets("Main").Range("D" & n + x) <> ""
'report des colonnes D et E
ActiveSheet.Range("Y" & y + x) = Sheets("Main").Range("D" & n + x)
ActiveSheet.Range("AC" & y + x) = Sheets("Main").Range("E" & n + x)
' increment de la ligne pour test colonne D
x = x + 1
Wend
End If
' increment pour test de la colonne C
n = n + 1
' réinitialisation de la ligne d'ecriture sur nouvelle feuille
y = 5
Wend
' libération de l'ecran
Application.ScreenUpdating = True