ComboBox Afficher si la ligne contient

Private Sub UserForm_Initialize()
Dim t, i As Long
t = Range("C6:E" & [C65536].End(xlUp).Row)
For i = 1 To UBound(t)
  If UCase(t(i, 3)) Like "M*" Then ComboBox1.AddItem t(i, 1)
Next
End Sub

Private Sub UserForm_Initialize()
Dim tablo, i As Long, t() As String, n As Long
tablo = Range("C6:E" & [C65536].End(xlUp).Row)
For i = 1 To UBound(tablo)
  If UCase(tablo(i, 3)) Like "M*" Then
    ReDim Preserve t(n)
    t(n) = tablo(i, 1)
    n = n + 1
  End If
Next
If n Then ComboBox1.List = Application.Transpose(t)
End Sub