Private Sub Worksheet_SelectionChange(ByVal Target As Range) ': End 'pour neutraliser la macro
Protect "Guido", UserInterfaceOnly:=True
If ActiveCell.Address = [MAJ].Address Then [A1].Select: Courses.Courses
If ActiveCell.Address = [Filtre].Address Then [A1].Select: Filtrer.Filtrer
If Intersect(ActiveCell, [Filtre].Offset(1).Resize(3)) Is Nothing Then Exit Sub
ActiveCell.Interior.ColorIndex = IIf(ActiveCell(1, 2) = "", 3, 44)
ActiveCell.Font.ColorIndex = IIf(ActiveCell(1, 2) = "", 2, xlAutomatic)
ActiveCell(1, 2) = IIf(ActiveCell(1, 2) = "", "a", "")
[A1].Select
End Sub