Tester des cellules en tenant compte de la casse

Bonjour à toutes et tous

Petite question au niveau d'un code qui vérifie l'existence de doublons (sans les supprimer forcément). Ce code est une macro événementielle :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub 'on sort si plusieurs cellules modifiées
If Not Intersect(Target, [K4:K17]) Is Nothing Then
If Target = vbNullString Then Exit Sub
If Application.CountIf([P], Target) And Target = Target.Offset(0, -6) Then Cells(Application.Match(Target, [P], 0), 16).ClearContents
End If
End Sub

Serait-il possible que le contrôle (qui fonctionne à merveille) tienne compte, en plus, de la casse (Majuscules/minuscules) ??

Merci.

Pierre F.