Bonjour,
Voici ce que je ferai :
Private Sub Worksheet_Change(ByVal Target As Range)
For i = 1 To 500
If cells(i, 1).Value <> "" Then
If cells(i, 26) = "" Then
cellule = "Y" + Str(i)
MsgBox "Veuillez saisir ... dans la cellule Y" + Str(i), vbOKCancel
End If
End If
Next
End Sub