Sub chgt_annee_2015_2016()
Dim Wk As Workbook, Sh As Worksheet
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\Brigitte\Dropbox\BB\xlbb\affaires2016.xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
With ThisWorkbook
For Each Sh In .Worksheets
If IsNumeric(Sh.Name) Then
Sh.Delete
Else: Sh.Activate
If Range("B1").Value = "dossier" Then
Range(Cells(2, 1), Cells(5000, 30)).Delete
Range("B2").Formula = "=IF(C2="";"";INDEX('C:\Users\Brigitte\Dropbox\BBcab\Clients.xlsx'!dossier;EQUIV(C2;'C:\Users\Brigitte\Dropbox\BBcab\Clients.xlsx'!nom;0);1))"
Selection.AutoFill Destination:=Range("B2:B5000"), Type:=xlFillDefault
Range("B2:B5000").Select
End If
End If
Next
End With
MsgBox "changement d'année vers 2016 terminé"
End Sub