Bonsoir,
Sub Extract8Val()
Dim TbV, i%, d As Object
Set d = CreateObject("Scripting.Dictionary")
With ActiveSheet.Columns("D")
Do
i = i + 1
d(.Cells(i, 1).Value) = ""
If d.Count = 8 Then Exit Do
Loop While .Cells(i + 1, 1) <> ""
TbV = d.keys
.Cells(4, 5).Resize(, UBound(TbV) + 1).Value = TbV
End With
End Sub
Nb- Les valeurs extraites sont affectées ligne 4 (à partir de H) : à adapter le cas échéant.
Nb2- .Cells(4, 5) est un adressage relatif par rapport à la colonne D mise sous bloc With : H4 est en position ligne 4, colonne 5 par rapport à D1...
Cordialement.
Salut gmb !
J'ai pas copié ! Je t'assure !