Erreur d'exécution 13 Incompatibilité de type

Public oVal As String
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    oVal = Target
End Sub
 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim oRng As Range
Dim n As Integer
 
If Target.Count = 1 Then
    If Not Application.Intersect(Target, Columns(6)) Is Nothing Then
        If Target > "0" Or Target <> oVal Then
            Set oRng = Range("F12")
            Feuil18.Range("A37:A50").ClearContents
            Feuil18.Range("E37:E50").ClearContents
            For i = 0 To Cells(Cells.Rows.Count, 2).End(xlUp).Row - 1
                If UCase(oRng.Offset(i, 0)) > "0" Then
                    n = n + 1
                    Feuil18.Range("A36").Offset(n, 0) = oRng.Offset(i, -2)
                End If
            Next i
        End If
    End If
End If
 
End Sub