Sub CreeFeuille()
Dim NFeuil As String
If ActiveCell.Value <> "" Then
Set c = ActiveCell
NFeuil = c.Value
If FeuilExist(NFeuil) Then
Sheets(NFeuil).Activate
Exit Sub
Else
Sheets("REF").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = NFeuil
ActiveSheet.Range("A1").Value = NFeuil
c.Offset(0, -2).Formula = "=IF('" & NFeuil & "'![COLOR="Blue"]$I$5[/COLOR]="""","""",'" & NFeuil & "'![COLOR="Blue"]$I$5[/COLOR])" 'date début ici I5
c.Offset(0, -1).Formula = "=IF('" & NFeuil & "'![COLOR="Blue"]$I$66[/COLOR]="""","""",'" & NFeuil & "'![COLOR="Blue"]$I$66[/COLOR])" 'date de fin ici I66
End If
End If
End Sub