Option Explicit
Sub Macro1()
'
' Macro1 Macro
'
'pour figer l'ecran
'Application.ScreenUpdating = False
Sheets("Main").Select
Dim n 'initialisation de la variable n (n° de ligne) et debuter le test
n = 5
Dim y
y = 5
Dim m
m = 4
While Sheets("Main").Range("C" & n) <> 0 ' test: feuille Main, colonne c ,ligne n, différend de 0
If Sheets("Main").Range("C" & n) <> "" Then ' teste non vide
Sheets("Modèle").Copy after:=Sheets(n - 3) 'création de la nouvelle feuille par copie de Modèle 'création de la nouvelle feuille par copie de Modèle
ActiveSheet.Name = Left(Sheets("Main").Range("C" & n), 31) 'Nouvelle feuille renommée
Range("E4").Formula = Sheets("Main").Range("A" & y) 'Inscription Mois en cours
Range("K8").Select
ActiveCell.FormulaR1C1 = "='" & CStr(Sheets("Main").Range("C" & m)) & "'!R[-6]C" ' correction ici
Range("K9").Select
Sheets("Main").Select
End If 'Fin de la condition
m = m + 1
y = y + 1
n = n + 1 ' increment pour test de la colonne C
Wend 'Fin de la boucle
' libération de l'ecran
'Application.ScreenUpdating = True
'
End Sub