Option Explicit
' AFFICHER LES COCHES "Wingdings"
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ligne As Long
Application.ScreenUpdating = False
If Target.Count > 1 Then Exit Sub
ligne = Target.Row
If (Target.Column = 4 Or Target.Column = 5) And ligne > 5 Then
Target = IIf(Target = "þ", "", "þ")
ActiveCell.Offset(0, 2).Select
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Inter As Range, c As Range
Set Inter = Intersect(Target, Range("D6:G199"))
If Not Inter Is Nothing Then
For Each c In Inter
If c.Value <> Worksheets("copie_Feuil1").Range(c.Address).Value Then
With c
.Interior.ColorIndex = 46
End With
Else
With c
.Interior.ColorIndex = 0
End With
End If
Next c
End If
Set Inter = Nothing
End Sub