Bonjour,
Supprimer n'est pas un problème. Avec ça, on y arrive :
Sub supprimeColonnes()
Range("F:F,H:H,M:O,R:R,T:T,W:AN,AQ:AR,AW:AX,BA:BA").Delete
End Sub
Mais, aucune colonne à supprimer doit débuter avec un entête fusionné (sinon on perd l'entête). La colonne R pose un problème.