Private Sub UserForm_Activate()
Me.MultiPage1.Value = 0 '-- UserForm toujours ouvert sur la page 1 du MultiPage1--
Dim Tablo As Variant, Tempo As Variant, i As Long, j As Long
With Worksheets("Autres POWERS") '--Activation Sheet25("Autres POWERS")--
Tablo = .Range("c2:c" & .Range("c" & .Rows.Count).End(xlUp).Row).Value
For i = 1 To UBound(Tablo) '-- Début du tri par ordre alphabétique --
For j = 1 To UBound(Tablo)
If Tablo(i, 1) < Tablo(j, 1) Then
Tempo = Tablo(i, 1)
Tablo(i, 1) = Tablo(j, 1)
Tablo(j, 1) = Tempo
End If
Next j
Next i '- Fin du tri par ordre alphabétique --
End With
[COLOR=Red]With[/COLOR] UserForm1.ListBox3
[COLOR=Red].Clear[/COLOR] [COLOR=DarkGreen]'on efface la listbox[/COLOR]
.AddItem Tablo(1, 1) '--Debut remplissage ListBox3 sans doublons--
For i = 2 To UBound(Tablo)
If Tablo(i, 1) <> Tablo(i - 1, 1) Then .AddItem Tablo(i, 1)
Next '--Fin remplissage ListBox3 sans doublons--
[COLOR=Red]End With[/COLOR]
End Sub