Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
For i = 3 To 49
If Cells(i, 6) <> "" Then ' Si non vide'
Cells(i, 5).Interior.ColorIndex = 3 ' alors Col5 rouge'
Cells(i, 7).Interior.ColorIndex = 3 ' et Col7 rouge'
MsgAlert
Else ' Sinon on rétablit les couleurs d'origine.
Cells(i, 5).Interior.ColorIndex = Cells(i, 6).Interior.ColorIndex
Cells(i, 7).Interior.ColorIndex = Cells(i, 6).Interior.ColorIndex
End If
Next
End Sub