Comparaison du contenue d'une cellule avec like

Bonjour,
J'ai un petit souci avec une macro VBA que je tente de faire , je vous expliquer j'ai une liste de fichier dans une colonne de ma feuille (nomdufichier.extension)
et avec ma macro j'aimerais pouvoir ne garder que les fichier qui commence par PV et avec l'extension pdf du coup je pense faire ça avec la fonction "like" mais il retourne une erreur d’exécution 438 ,

Option Compare Binary 
Option Explicit

Private Sub Scan()

Dim cell As Range ' defini la taille du scan a une cellule
Dim Var1 As String ' recupere la valeur de la cellule scanner
Dim Var2 ' recupere le numero de colone de la cellule scanner
Dim DernLigne As Long ' recupere le numero de la derniere ligne ecrite dans le tableau de lecture
Dim Plage As Range ' defini la plage de cellule a scanner


  
  DernLigne = Worksheets("scan-dt17").Range("A" & Rows.Count).End(xlUp).Row ' stockage de la derniere ligne a lire
  
  Set Plage = Worksheets("scan-dt17").Range("C1:C" & DernLigne)


  
  With Worksheets("scan-dt17")
        'Utilisation de la propriété UsedRange dans une boucle For Each... Next
    For Each cell In Plage
           Var1 = cell.Value
           Var2 = cell.Line
           
   
            If Var1 Like "PV*pdf" Then
            
            MsgBox "ok"
            End If
          

     Next
 End With
 
  MsgBox " Scan Terminé"
End Sub

j'ai pas mal cherché et relu la doc MSDN pas moyen de comprendre ce qui bloque .
merci d'avance a ceux qui pourront me répondre et bonne journée aux autres .