Private Sub Worksheet_Activate()
Set b = Sheets("BASE")
Set liste = CreateObject("scripting.dictionary")
With Sheets("PRODUITS")
.[H2].Resize(Application.CountA(.[H:H]), 1).Clear
For lig = 2 To b.Cells(Rows.Count, 19).End(xlUp).Row
If b.Cells(lig, 19) <> "" Then liste(b.Cells(lig, 19).Value) = ""
Next lig
If liste.Count <> 0 Then .[H2].Resize(liste.Count, 1) = Application.Transpose(liste.keys)
End With
End Sub