Information effacement bordures et formats

Bonjour,

Je cherche la commande VBA qui permet d'effacer tous les bordures et formats d'une plage de cellule.

Je sais qui il a la commande CLEAR; mais cette commande efface également le fond couleur de la plage et je veux conserver le fond de couleur.

Comment effacer tout le reste sans effacer le fond de couleur.

Merci,

Oiseau bleu

bonjour Oiseaubleu

Sub Oiseaubleu()
     With Cells
          .Borders.LineStyle = xlNone
          .NumberFormat = "General"
     End With
End Sub

Merci beaucoup cela fonctionne parfaitement pour les bordures et les formats.

J'ai une autre question.

Quand je copie, je copie une couleur différents de me fond d'écran.

Comment faire pour redonner la couleur de fond original et effacer les couleurs que le copier à fait.

Merci encore,

Oiseau bleu

si leur couleur original était "aucun" couleur, alors ceci

Sub Oiseaubleu()
     With Cells
          .Borders.LineStyle = xlNone
          .NumberFormat = "General"
          .Interior.Color = xlNone           '>>> aucun couleur
     End With
End Sub

Merci pour votre réponse, c'est parfait.