aide sur planning

Sub recopie()
Dim mois As Byte
Dim data1 As String
Dim date1 As Date
Dim trouve1 As Byte
Dim trouve(12) As Byte
Dim i As Byte

Application.EnableEvents = False



date1 = "01/01/" & Year(Now)

For i = 0 To 11
    date2 = DateAdd("m", i, date1)
    Data2 = MonthName(Month(date2))
    For Each Sh In Worksheets
        trouve1 = 0
        Select Case Sh.Name
            Case "MFC", "Model"
                trouve1 = 1
            Case "janvier"
                trouve(0) = 1
            Case "février"
                trouve(1) = 1
            Case "mars"
                trouve(2) = 1
            Case "avril"
                trouve(3) = 1
            Case "mai"
                trouve(4) = 1
            Case "juin"
                trouve(5) = 1
            Case "juillet"
                trouve(6) = 1
            Case "août"
                trouve(7) = 1
            Case "septembre"
                trouve(8) = 1
            Case "octobre"
                trouve(9) = 1
            Case "novembre"
                trouve(10) = 1
            Case "décembre"
                trouve(11) = 1
               
        End Select
    Next Sh
    
If trouve(i) = 0 Then Exit For
Next i

For i = 0 To 12
    If trouve(i) = 0 Then
    Exit For
    End If
Next i

If i < 12 Then
 With Sheets("Model")
        .Copy after:=Sheets(Sheets.Count)
  '      On Error GoTo PbNomFeuille
        ActiveSheet.Name = MonthName(i + 1) ' référence
  '      On Error GoTo 0
        Range("a1") = MonthName(i + 1)
        date1 = DateAdd("m", i, date1)
        For j = 0 To 30
            date2 = DateAdd("d", j, date1)
            If Month(date2) <> i + 1 Then Exit For
            Cells(2, j + 2) = date2
            Cells(3, j + 2) = date2
            
        Next j
    End With

End If
Application.EnableEvents = True
End Sub