Microsoft 365 Incompatibilité de type

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim lo As ListObject, lr As ListRow, lRowInTable As Long
 
     If Target.Column = 10 And Target.Count = 1 And Target.Row > 8 Then
        Target = IIf(Target = "þ", "o", "þ")
    End If
  
     If Not ActiveCell.ListObject Is Nothing Then
       lRowInTable = ActiveCell.Row
      [COLOR=rgb(0, 0, 0)] If Target.Value = "þ" Then[/COLOR]
                Range("A" & lRowInTable & ":" & "H" & lRowInTable).Font.Color = RGB(142, 142, 142)
                Range("C" & lRowInTable) = Format(Date, "ddd d mmm")
            Else
                Range("A" & lRowInTable).Font.ColorIndex = 1
                Range("C" & lRowInTable) = ""
            End If
        End If
End Sub