Présence

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
 If Not Intersect(Target, Range("B2:B" & Range("A" & Rows.Count).End(xlUp).Row)) Is Nothing Then
    Cancel = True
    Dim MonDico, Tablo, i As Integer
    Set MonDico = CreateObject("Scripting.Dictionary")
    Target = IIf(UCase(Target) = "X", "", "x")
    Tablo = Range("A2:B" & Range("A" & Rows.Count).End(xlUp).Row)
    For i = LBound(Tablo) To UBound(Tablo)
        If UCase(Tablo(i, 2)) = "X" Then MonDico(Tablo(i, 1)) = ""
    Next
    
    Range("F3:F" & Range("F" & Rows.Count).End(xlUp).Row).ClearContents
    If MonDico.Count Then _
    Range("F3").Resize(MonDico.Count) = Application.Transpose(MonDico.keys)
    
    Set MonDico = Nothing
 End If
End Sub