Sub CreaFeuil()
Dim i As Integer, Nom As String, j As Byte
Application.ScreenUpdating = False
With Sheets("Datas")
For i = 5 To 93
If .Cells(i, 1).Interior.ColorIndex <> 2 Then
Nom = .Cells(i, 1)
Sheets("Modèle").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Nom
Cells(1, 1) = "Cellule " & Nom
For j = 1 To 12
Cells(5, j) = .Cells(i, j + 4)
Next
End If
Next
End With
Application.ScreenUpdating = True
End Sub