Private Sub CommandButton1_Click()
Dim d As Object, c As Range
Set d = CreateObject("Scripting.Dictionary")
For Each c In [C3:J7] 'plage à adapter
d(c.Value) = ""
Next
With [L3] 'cellule à adapter
.Resize(, d.Count) = d.keys
Range(.Offset(, d.Count), Cells(.Row, Columns.Count)) = ""
End With
End Sub