Accélerer un code de mise en forme de cellule

Bonjour à tous,

J'ai créé un petit code de pour mettre en forme une série de cellules dans un range défini et dynamique.

Mais je trouve l'exécution horriblement lente (presque 20 secondes)

Y aurait-t-il un moyen de l'accélérer ? J'ai essayé d'éviter les "Select" mais ça n'a pas changé grand chose

Merci d'avance

Sub MiseEnForme(Col)

Application.ScreenUpdating = False

LastLine = Range("E" & Rows.Count).End(xlUp).Row 'où E est la colonne donnée

Range(Cells(7, Col), Cells(LastLine, Col)).Borders(xlEdgeLeft).LineStyle = xlContinuous
Range(Cells(7, Col), Cells(LastLine, Col)).Borders(xlEdgeLeft).Weight = xlMedium

Range(Cells(7, Col), Cells(LastLine, Col)).Borders(xlEdgeRight).LineStyle = xlContinuous
Range(Cells(7, Col), Cells(LastLine, Col)).Borders(xlEdgeRight).Weight = xlMedium

Range(Cells(7, Col), Cells(LastLine, Col)).Font.Bold = True

Range(Cells(7, Col), Cells(LastLine, Col)).Interior.PatternColorIndex = xlAutomatic
Range(Cells(7, Col), Cells(LastLine, Col)).Interior.ThemeColor = xlThemeColorDark1
Range(Cells(7, Col), Cells(LastLine, Col)).Interior.TintAndShade = -0.249977111117893
Range(Cells(7, Col), Cells(LastLine, Col)).Interior.PatternTintAndShade = 0

Application.ScreenUpdating = True

End Sub

Edit modo : code mis entre balises avec le bouton </>

Bonjour jojolapin,

Malheureusement je ne pense pas que ce soit possible d'accélérer le code

Pas de boucle, pas de Select, c'est parfait

@+