Private Sub CommandButton1_Click()
[LEFT][FONT=Georgia][COLOR=rgb(20, 20, 20)]
lig = -46
Set dico = CreateObject("Scripting.Dictionary")
For k = 1 To 4
Dep = 6
lig = lig + 55
For Each c In Feuil4.Range("B" & lig & ":B" & lig + 50)
If c.Value <> "" Then
dico.Item(c.Value) = dico.Item(c.Value)
End If
Next
Next
Feuil5.Range("B43").Resize(dico.Count) = Application.Transpose(dico.keys)
End Sub