Bonjour,
Voilà pour la liste :
Sub ListeClients()
Dim d As Object, T, n, i%, j%, c As Range
Set d = CreateObject("Scripting.Dictionary")
With ActiveSheet
n = .Cells(.Rows.Count, 2).End(xlUp).Row
For Each c In .Range("C3:M" & n)
If c.Column Mod 2 Then
If c <> "" Then d(c.Value) = ""
End If
Next c
End With
T = d.keys
For i = 0 To UBound(T) - 1
For j = i + 1 To UBound(T)
If T(j) < T(i) Then
n = T(j): T(j) = T(i): T(i) = n
End If
Next j
Next i
ActiveSheet.Range("P3").Resize(UBound(T) + 1).Value = WorksheetFunction.Transpose(T)
End Sub
Le reste, j'ai pas compris !
Cordialement.
Salut gmb !
C'est la même méthode de base ! Désolé !
Je profite pour t'exprimer mon admiration pour ta patience sur un sujet qui a duré.... (je suis sûr que tu vois lequel...) je n'avais pas eu l'occasion de le faire.