Excel a rencontré un problème et doit fermé

Option Explicit

Sub listenonencaisser()
Dim sh As Object
Dim shrec As Worksheet
Dim va As Variant, li As Integer
Set shrec = Sheets("RECAP")
shrec.Range("A2:C" & shrec.Cells(Rows.Count, 1).End(xlUp).Row + 1).Clear
li = 2
For Each sh In Worksheets
If sh.Name <> "RECAP" And sh.Name <> "paramètres" Then
For Each va In sh.Range("F13:F" & sh.Cells(Rows.Count, 1).End(xlUp).Row)
If va <= Date And va.Offset(0, 7) <> "ENCAISSE" Then
shrec.Cells(li, 1) = sh.Cells(1, 4).Value
shrec.Cells(li, 2) = va.Offset(0, -4).Value
shrec.Cells(li, 3) = va.Offset(0, 3).Value
li = li + 1
End If
Next va
End If
Next sh
Set shrec = Nothing
End Sub

Option Explicit

Private Sub ComboBox1_Change()
Sheets(ComboBox1.Value).Select
UserForm1.Hide
End Sub
Private Sub UserForm_Initialize()
ListerOnglets2
ComboBox1.ListIndex = 0
End Sub
Sub ListerOnglets2()
' Liste les onglets de type "Feuille" et "Graphique"
Dim i As Integer
For i = 1 To Sheets.Count
ComboBox1.AddItem (Sheets(i).Name)
Next i
End Sub

j ai eu erreur d exécution '91'

https://www.cjoint.com/c/EADjO3E2DyI