Cellule liste intelligente

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'mettre ton autre code ici 

'ATTENTION qu'il n'y ait pas Exit Sub dans ton code


    'restriction de la plage
    If Target.Column > 10 Or Target.Row > 20 Then Exit Sub    'plage A1:J20
    If Target.Count = 1 Or Target.MergeCells Then
        If Target.Font.Name = "Wingdings" Then
            With Target    'cellule "liée"
                .Value = Abs(.Range("A1").Value - 1)
                .NumberFormat = """þ"";General;""o"";@"
                Application.EnableEvents = False
                .Range("A1").Offset(, 1).Select
                Application.EnableEvents = True
            End With
        End If
    End If
End Sub