Bonjour à tous

je souhaiterai un coup de main car j'aimerai adapter une macro qui teste une cellule et selon le résultat agit, en je teste toutes les cellules d'une colonne et j'agis
Voici le code original:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Private Sub Workbook_Open()
    'Lance le clignotement  à l'ouverture si la cellule B3 supérieure à 9
    If Val(Sheets(1).Range("B3").Value) > 9 Then Clign
End Sub
J' ai donc essayé ainsi:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Private Sub Workbook_Open()
Dim i As Long, shut As Worksheet
Set shut = Worksheets("Vordispoliste")
With shut
For i = Cells(65000, 28).End(xlUp).Row To 1 Step -1                      
        If Val(shut.Range(i, 28).Value) > 333 Then Clign
   End With
    Next
    Set shut = Nothing    
End Sub
Hélas elle ne marche pas m'indiquant qu'il y a end with sans with ou que la methode range a echouée