Sub CREATION()
Dim X As Integer
Application.ScreenUpdating = 0
X = 2
While Sheets("Personnel").Range("B" & X).Value <> ""
Sheets("Modèle").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = Sheets("Personnel").Cells(X, 2)
With Sheets("Modèle")
Range("D1") = Sheets("Personnel").Cells(X, 2)
Range("C1") = Sheets("Personnel").Cells(X, 1)
End With
X = X + 1
Wend
End Sub