Sub AjouterMois()
Dim Mois, CurDt
Sheets(Sheets.Count).Copy After:=Sheets(Sheets.Count)
CurDt = Range('L7'Â'Â').Value
Mois = DateSerial(Year(CurDt), Month(CurDt) + 1, 1)
ActiveSheet.Name = Format(Mois, 'mmmm yyyy'Â'Â')
Range('C13:Q43'Â'Â').ClearContents
Range('L7'Â'Â').Value = Mois
Range('C13'Â'Â').Select
End Sub