Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 1 To Range("B65000").End(xlUp).Row
If Cells(i, 8).Interior.ColorIndex = 3 Then GoTo suiv
If Cells(i, 2) <> "" And Cells(i, 8) = "" Then
MsgBox "SVP remplir cellule en H" & i
Cells(i, 8).Interior.ColorIndex = 3
suiv:
End If
Next i
End Sub