XL 2010 erreur

Sub MENSUEL()
   
    Dim Name As String
        Sheets("FORME").Activate
            With ActiveSheet
                Name = .Name  
                    .Copy After:=Sheets(Sheets.Count)  
                        Sheets(Sheets.Count).Name = MonthName(Month(Date) - 1) & "_" & "BOB" 
                            Sheets("FORME").Select 
                                            End With
                                                For Each sh In ActiveWorkbook.Sheets
                                                    sh.Cells.EntireColumn.AutoFit
                                                        Next
                                                            End Sub