Microsoft 365 problème de rangement VBA

Private Sub ComboBox1_Enter()
Dim tablo, i&
ComboBox1.Clear
ComboBox3.Clear
ComboBox3 = ""
tablo = Sheets("config").[A17].CurrentRegion.Columns(1)
For i = 2 To UBound(tablo)
    If tablo(i, 1) <> "" Then ComboBox1.AddItem tablo(i, 1)
Next
End Sub

Private Sub ComboBox3_Enter()
Dim c As Range
If ComboBox1.ListIndex = -1 Then ComboBox3.Clear: Exit Sub
Set c = Sheets("config").[A17].CurrentRegion.Columns(1).Find(ComboBox1, , xlValues, xlWhole)
ComboBox3.List = c(1, 2).Resize(c.MergeArea.Count, 2).Value  'au moins 2 éléments
End Sub

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox2 = "" Then Exit Sub
On Error Resume Next
If Not IsDate(TextBox2) Or Year(TextBox2) < 1900 Then
    Cancel = True
    MsgBox "Le format de date n’est pas valide"
    TextBox2 = ""
End If
End Sub