XL 2019 Effacer 1 colonne sur 2

[Mapat]

Bonjour
J'ai un tableau de données avec 1 colonne sur 2 masquée.
Des infos dans ces colonnes masquées avec des formules à ne pas effacer
Je voudrais pouvoir effacer les données des colonnes visibles tout en conservant bien évidemment les
formules des colonnes masquées
J'ai fait une petite macro avec l'enregistreur, mais comme il y a beaucoup de colonnes ça n'est pas pratique
Quelqu'un pourrait-il me concocter une macro qui puisse faire ce travail ?
Merci et cordialement

 

[JM27]

bonjour

Sub effacer()
    Dim I As Byte
    For I = 2 To 28 Step 2
        Range(Cells(2, I), Cells(33, I)).ClearContents
    Next
End Sub

 

[Mapat]

re
Impeccable
Je vous remercie et bonne journée