Option Explicit
Private WithEvents Flt As ComboBoxLiées, LObs As Long, TLObs() As Long, _
WithEvents Esp As ComboBoxLiées, LEsp As Long
Private Sub UserForm_Initialize()
Set Flt = New ComboBoxLiées
Flt.Plage [TabObs]
Flt.Add CBxFiltreValidation, "VALIDE"
Flt.Add CBxFiltreSite, "Site"
Flt.Add CBxFiltreDate, "Date"
Flt.Actualiser
Set Esp = New ComboBoxLiées
Esp.Plage [TabEspèces]
Esp.Add CBxModOrdre, "Classe"
Esp.Add CBxModNomVerna, "Nom vernaculaire"
Esp.Add CBxModNomLatin, "Nom latin"
Esp.Actualiser
End Sub