Sub Macro3()
Application.ScreenUpdating = False
Exercice = InputBox("Veuillez saisir l'exercice budgétaire !", "Exercice budgétaire")
If IsNumeric(Exercice) Then
Rows("1:1").Insert Shift:=xlDown
Columns("D:D").Insert Shift:=xlToRight
[D2].FormulaR1C1 = "=R[1]C[-2]<>" & Exercice & ""
Range("B2:B" & [B65000].End(xlUp).Row).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("D1:D2"), Unique:=False
Range("B3:B" & [B65000].End(xlUp).Row).SpecialCells(xlCellTypeVisible).EntireRow.Delete
Rows("1:1").Delete Shift:=xlUp
Columns("D:D").Delete Shift:=xlToLeft
ActiveSheet.ShowAllData
End If
Application.ScreenUpdating = True
End Sub