Comparaison du contenue d'une cellule avec like

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