Sub Test()
Dim NBMois As Integer
Dim I As Integer
Dim DateDeb As Date
Dim DateFin As Date
'défini la date de début (elle est sensée être dans un format de date valide)
DateDeb = Worksheets("Régularisation Pe").Range("C7").Value
'défini la date de fin (idem...)
DateFin = Worksheets("Régularisation Pe").Range("E7").Value
'calcule la différence en mois ("m") entre ces deux dates
NBMois = DateDiff("m", DateDeb, DateFin)
'boucle sur les feuilles en commençant par celle portant l'index correspondant au mois de la date de début
'jusqu'à celle ayant l'index incrémenté de la différence en mois, dans ton cas le "1 mars 2016"
'donne pour index de début 3 et la date "31 octobre 2016" donne pour index de fin 10
'donc, For I = 3 to 3 + 7
For I = Month(DateDeb) To Month(DateDeb) + NBMois
'comme il faut commencer à l'index 1 pour la première feuille, il faut retrancher à I
'la valeur de l'index du mois ce qui donne 0 mais comme il n'existe pas de feuille ayant un index 0, il faut rajouter 1
Worksheets(I - Month(DateDeb) + 1).Name = Format(DateSerial(Year(DateDeb), I, 1), "mmm yy")
Next I
End Sub