Alléger le code macro en enregistrement auto

[riomilou]

Bonjour tout le monde,
Comme je débutant en VBA, j'ai enregistré en auto une macro qui me supprime toute la cellule (valeur, couleur,bordure...). Elle est trop longue et il doit avoir des choses qu'on peut supprimer je suppose...Si quelqu'un peut m'alléger cette macro, je lui serai reconnaissant. Merci et bon dimanche à vous tous.
CDlt

Sub essai4()
Range("AA16").Select
Application.CutCopyMode = False
Selection.ClearContents
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Selection.Interior.ColorIndex = xlNone
End Sub

 

[riomilou]

Re : Alléger le code macro en enregistrement auto

Oh, superbe !
Merci Jean-Marcel. Ma macro a maigri de 10 lignes de moins !!!!
Cdlt