Prblm d'optimisation d'un code vba HEL please

Bonjour,

Je suis étudiant et débute en vba j'ai un code a optimiser : le voici
'Modifiez et optimisez au maximum le code suivant de telle sorte qu'il puisse s'adapter à des situations diverses

Sub Exercice2()
Dim Zone As Range 'Zone à mettre en forme
Set Zone = Worksheets("Exercice 2").[a1:d4]
Zone.Interior.ColorIndex = 5
Zone.Borders(xlInsideHorizontal).LineStyle = xlDash
Zone.Borders(xlInsideVertical).LineStyle = xlDash
Zone.Borders(xlInsideHorizontal).Weight = xlMedium
Zone.Borders(xlInsideVertical).Weight = xlMedium
Zone.Borders(xlEdgeBottom).LineStyle = xlContinuous
Zone.Borders(xlEdgeTop).LineStyle = xlContinuous
Zone.Borders(xlEdgeRight).LineStyle = xlContinuous
Zone.Borders(xlEdgeLeft).LineStyle = xlContinuous
[a1:a4].Font.Bold = True
[a1:a4].Font.Italic = True
[a1:a4].Font.Name = "comic sans ms"
End Sub

J'ai réalisé ca mais j'aimerais etre sure qu'il est optimiser a 100% c'est pourquoi j'ai besoin de votre aide
Sub Exercice2()
Dim Zone As Range 'Zone à mettre en forme
Set Zone = Range("a1").CurrentRegion
With Zone
.Interior.ColorIndex = 5
With .Borders(xlInsideHorizontal)
.LineStyle = xlDash
.Weight = xlMedium
End With
With .Borders(xlInsideVertical)
.LineStyle = xlDash
.Weight = xlMedium
End With
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeRight).LineStyle = xlContinuous
.Borders(xlEdgeLeft).LineStyle = xlContinuous
End With
With [a1:a4].Font
.Bold = True
.Italic = True
.Name = "comic sans ms"
End With
End Sub

Je pense qu'on peut faire mieux, c'est pourquoi je vous sollicite.
Si quelqu'un peut m'aider ce serait super de sa part.
Merci d'avance et encore merci a toute personne pouvant m'aider SVP !
Mat