Sub ONGLET()
'
If Worksheets(Worksheets.Count).Name = "LOYER " Then
NomFeuille = "0115"
Else
NomMois = Left(Worksheets(Worksheets.Count).Name, 2)
NomAnnee = 2000 + Val(Right(Worksheets(Worksheets.Count).Name, 2))
MaDate = DateSerial(NomAnnee, NomMois + 1, 1)
NomFeuille = Format(MaDate, "mm") & Format(MaDate, "yy")
End If
Worksheets("LOYER ").Copy After:=Sheets(Worksheets.Count)
Worksheets(Worksheets.Count).Name = NomFeuille
End Sub