XL 2013 VBA Sélection d'une feuille selon un critère

Sub Trouver_Date_Max()
Dim Wsht As Worksheet, WshtF As Worksheet, DateMax As Date
For Each Wsht In ActiveWorkbook.Worksheets 'pour chaque feuille de travail du classeur actif
    If IsDate(Wsht.Range("B3").Value) Then 'si B3 est une date
        If Wsht.Range("B3").Value > DateMax Then 'si B3 est supérieur à date max
            DateMax = Wsht.Range("B3").Value 'date max = B3
            Set WshtF = Wsht ' feuille finale=feuille en cours
        End If
    End If
Next Wsht
If WshtF Is Nothing Then 'si feuille finale n'existe pas
    MsgBox "Feuille introuvable", vbOKOnly + vbInformation
Else
    WshtF.Select 'feuille finale sélectionnée si existe
    Range("B3").Select 'date sélectionnée
    MsgBox "Feuille " & WshtF.Name & " sélectionnée", vbOKOnly + vbInformation
End If
End Sub