Private Sub Workbook_Open()
Dim i As Long, shut As Worksheet
Set shut = Worksheets("Vordispoliste")
For i = Cells(65000, 28).End(xlUp).Row To 1 Step -1 'boucle de la dernière ligne colonne J à la première
'If Cells(i, 10) Like "GLS" Then Rows(i).Delete 'supprime la ligne si elle contient "GLS"
'Next
'Lance le clignotement à l'ouverture si la cellule B3 supérieure à 9
If Val(shut.Range(i, 28).Value) > 333 Then Clign
Next
Set shut = Nothing
End Sub