Sub MEF()
If TypeName([Fait]) = "Boolean" Then MsgBox "Les colonnes ont déjà été supprimées !", 48: Exit Sub
With ThisWorkbook
.Names.Add "Fait", True, Visible:=False 'nom défini masqué
.Activate
.Sheets(Array("FRANCE", "CORDON", "PORTUGAL", "BELGIQUE", "ESPAGNE", "HS_ITALIE", "HS_SUISSE", "HS_CORDON")).Select
End With
ActiveSheet.Range("C:H,A:A,J:P").Select
Selection.Delete
ActiveSheet.[A1].Select
ActiveSheet.Select
End Sub