Private Sub UserForm_Initialize()
Dim c As Range, csv As Range, Rng As Range
Set f = Sheets("base")
Set sv = Sheets("suivi")
Set Rng = sv.Range("A2:A" & f.[A65000].End(xlUp).Row)
For Each c In f.Range("A2:A" & f.[A65000].End(xlUp).Row)
For Each csv In Rng
If c = csv And csv.Offset(, 3) <> "vrai" Then
Me.ComboBox1.AddItem c
End If
Next csv
'il faudrait que seule les valeurs de cette combobox apparaissent si la valeur située dans la feuille "suivi"
'en la colonne D est <> de VRAI
Next c
End Sub