Function PlatUnique(Plage, Optional Repas)
Dim Dico, x As Integer, Lig
Set Dico = CreateObject("Scripting.Dictionary")
x = Plage.Row - 1
For Each Lig In Plage.Rows
If IsMissing(Repas) Then
Dico(CStr(Plage(Lig.Row - x, 1))) = ""
Else
If Plage(Lig.Row - x, 2) = Repas Then Dico(CStr(Plage(Lig.Row - x, 1))) = ""
End If
Next
PlatUnique = Dico.Count
End Function