XL 2013 Supprimer Colonnes et lignes

[BRUNO28]

Bonjour à tous,
Je souhaiterai une macro qui puisse me supprimer certaines colonnes et lignes. A savoir ce sont toujours les mêmes. Voir fichier joint.
Merci pour votre collaboration et bonne journée.
Bruno28

 

[M12]

Bonsoir,

Au plus simple avec l'enregistreur de Macro

 

[cp4]

Salut Bruno,M12
ou plus simplement

Private Sub CommandButton1_Click()
    Range("B:B,D:I,K:L,N:O,Q:Q,S:S").Delete
    Rows("1:13").Delete
    Range("A1").Select
End Sub

 

[BRUNO28]

Merci pour vos soluces qui me satisfont pleinement.
Bien à vous pour votre concours