Désolé le code n'est pas passé
'====================
Sub Surbrillance_avant_deux_points()
'patricktoulon
Dim TxT$, XceLL, X&, Tim#, V&, Nb&
Dim Dif#, DG%, Dec#, M&, S&
Tim = Timer
Application.ScreenUpdating = False
Nb = Cells(Rows.Count, 13).End(xlUp).Row
Label9.Caption = Nb: V = 0
With...