Rechercher une valeur variable dans le nom des onglets

Private Sub VALIDER_Contrat_Click()
Dim nomf As String
Dim sh As Worksheet
nomf = Debut_Contrat_M.Value    ' nom de la feuille a selectionner
For Each sh In Sheets
If Left(.Value, 8) = nomf.Value Then
Sheets(nomf).Select

Range("A7" & Range("A26").End(xlUp).Row + 1).Select
         Range(0, 3).Value = Nom_Freelance.Value
         Range(0, 4).Value = Prenom_Freelance.Value
         Range(0, 5).Value = Tel_Freelance.Value
         Range(0, 6).Value = Statut_Freelance.Value
         Range(0, 11).Value = Nb_jours.Value
         Range(0, 12).Value = TJM_Achat.Value
         Range(0, 13).Value = TJm_Contrat.Value
         Range(0, 14).Value = TJM_Vente.Value
         Range(0, 16).Value = Effort.Value
         Range(0, 18).Value = Duree_Contrat.Value
         Range(0, 20).Value = Nb_jours.Value
         Range(0, 23).Value = Debut_Contrat_J.Value & "/" & Debut_Contrat_M.Value & "/" & Debut_Contrat_A.Value
        End If
Next sh
End Sub

Option Explicit
Private Sub ListBox1_Click()
If ListBox1.ListIndex = -1 Then Exit Sub
 Sheets(ListBox1.List(ListBox1.ListIndex)).Select
End Sub
Private Sub UserForm_Initialize()
'Déclare la variable objet Worksheet
Dim Ws As Worksheet
'Boucle sur toutes les feuille de calcul du classeur. Les onglets graphiques ne sont pas pris
'en compte.
'ThisWorkbook correspond à l'objet classeur contenant la macro
For Each Ws In ThisWorkbook.Worksheets
    'Renvoie le nom de chaque feuille
    ListBox1.AddItem (Ws.Name)
Next Ws
End Sub