Microsoft 365 vba find valeurs répondant à une condition d'inégalité

rivate Sub TraitFindValSupStrict()
 
    Dim valCherchee As String
    Dim y1 As Currency
    Dim plage, cell As Variant
        
    AdapterZoomSelonResolution
        
    If moisInit Then
      moisCourant = UserForm15.DTPicker1.Month
      moisFin = UserForm15.DTPicker2.Month
      moisInit = False
      y1 = Val(UserForm15.TextBox1.Text)
      maPlage = "C3:" & colonneFinPlage(moisCourant, posLigneSommeColonne)
    End If
    
    With Sheets("MaFeuille")
      Set plage = Range(maPlage)
      For Each cell In plage
        If cell.Value > y1 Then
          .Cells(cell.Row, cell.Column).Select
           MsgBox "Contenu de la cellule active : " & Cells(cell.Row, cell.Column).Value
        End If
      Next cell
    End With
    MsgBox "FIN DE LA RECHERCHE"
    
End Sub