* Bonjour, *

Quelqu'un pourrait corriger ce code SVP :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Workbook_Open()
 
With Sheets("Feuil1")
 
For i = 1 To 6
 
If Cells(B, i).Value > Date Then
MsgBox "mise à jour pour " & Cells(B, i).Value & " nécessaire"
End If
 
Next i
 
End With
End Sub
Merci