Mois suivant mois précédent

Sub tradem()
Dim nomfeuille1 As String
Dim data1 As String
Dim i As Byte
Dim annee As Long
Dim date1 As Date
Dim date2 As Date
Dim date3 As Date
Dim MoisPrécedent As String
Dim MoisSuivant As String


nomfeuille1 = ActiveSheet.Name
data1 = ActiveSheet.Name
For i = 0 To 9
    data1 = Replace(data1, i, "")
Next i
annee = Val(Replace(nomfeuille1, data1, ""))
data1 = LCase(Replace(data1, " ", ""))
    Select Case data1
            Case "janvier"
                i = 1
            Case "février"
                i = 2
            Case "mars"
                i = 3
            Case "avril"
                i = 4
            Case "mai"
                i = 5
            Case "juin"
                i = 6
            Case "juillet"
                i = 7
            Case "août"
                i = 8
            Case "septembre"
                i = 9
            Case "octobre"
                i = 10
            Case "novembre"
                i = 11
            Case "décembre"
                i = 12
               
        End Select

date1 = "01/" & i & " / " & annee
date2 = DateAdd("m", 1, date1)
date3 = DateAdd("m", -1, date1)
MoisPrécedent = MonthName(Month(date3)) & " " & Year(date3)
MoisSuivant = MonthName(Month(date2)) & " " & Year(date2)
MoisPrécedent = UCase(Mid(MoisPrécedent, 1, 1)) & Mid(MoisPrécedent, 2, 1000)
MoisSuivant = UCase(Mid(MoisSuivant, 1, 1)) & Mid(MoisSuivant, 2, 1000)
End Sub