Public FNRs As New Scripting.Dictionary
Dim REF_Selected_FNR()
....
....
Private Sub choix_type_echantillon(typeECH As Byte)
FNRs.RemoveAll
ColumnNbr = 26 + 2 * typeECH
UserForm1.wbkBase.Sheets(typeECH).Activate
Dim REFs_FNRs()
For i% = 2 To Application.WorksheetFunction.CountA(Range(Range("Z:Z").Offset(0, 2 * typeECH).Address)) + 1
If Not FNRs.Exists(Cells(i, ColumnNbr).Text) Then
j = 0
ReDim REFs_FNR(0)
For Each objCell In Range(Range("A2"), Range("A2").End(xlDown))
If objCell.Offset(0, ColumnNbr - 1) = Cells(i, ColumnNbr) Then
ReDim Preserve REFs_FNRs(j)
REFs_FNRs(j) = Array(objCell.Text, objCell.Offset(0, ColumnNbr + 2).Text, _
IIf(CBool(objCell.Offset(0, ColumnNbr + 2 + 1).Text = "TRANSMIS"), "OUI", "NON"), objCell.Row)
j = j + 1
End If
Next
FNRs.Add Cells(i, ColumnNbr).Text, REFs_FNRs()
End If
Next
ListFnrs = FNRs.Keys
ListSort ListFnrs
ListSort ListFnrs ' oui, 2 fois : j'ai pas trouvé l'erreur... ?!
Me.ComboBox_choix_FNR.List = ListFnrs
ListBox1.ColumnCount = 3
REF_Selected_FNR = Array()
choix_FNR
End Sub