Garder le format d'une cellule tout en supprimant son contenu

Bien le bonjour les Excelleur ! Encore besoin de votre aide

Cette fois mon soucis c'est que j'ai un code VBA pour clear les cellule mais ça me supprime aussi le format de la cellule. Alors oui c'est du pointillage mais si vous avez une solution je suis preneur.

Voici mon code actuelle : Bon courage à vous d'Exceler.

Sub Clearcells()

'Updateby Extendoffice
Range("B3", "M3").Clear
Range("B5", "M5").Clear
Range("B7", "M7").Clear
Range("B9", "M9").Clear
Range("B11", "M11").Clear
Range("B13", "M13").Clear
Range("B15", "M15").Clear
Range("B17", "M17").Clear
Range("B19", "M19").Clear
Range("B21", "M21").Clear
Range("B23", "M23").Clear
Range("B25", "M25").Clear
Range("B27", "M27").Clear
Range("B29", "M29").Clear
Range("B31", "M31").Clear
Range("B33", "M33").Clear

End Sub

Merci d'avance !

Cordialement

Bonjour,

Essaye ClearContents à la place de Clear

Bonjour,

Exact. Et essaie aussi une boucle (genre for... To...) quand tu as une structure qui se répète

Tu pourras réduire toutes ces lignes à 3 lignes.

Valentin85 génial, rapide efficace c'est parfait ! merci pour ton aide !

Ah..... je savais pas ! faut dire que c'est pas du tout mes étude alors j'y connais rien. Mais c'est bon à savoir merci beaucoup Joyeux Noel je vais appliquer tes conseils de ce pas

Sub Clearcells()

'Updateby Extendoffice
For i = 3 to 33 step 2
Range("B" & i, "M" & i).Clearcontents
Next

End Sub

Super ! Merci Merci ! INCR-OYA-BLE