Sub CBX_Appliquerfiltre()
With Shapes(Application.Caller).ControlFormat
MsgBox "J'ai cliqué sur l'élément " & Range(.LinkedCell) & vbLf & _
"qui correspond à """ & Range(.ListFillRange).Cells(Range(.LinkedCell)) & """", _
vbInformation, Application.Caller
End With
Application.Goto Cells(1), True
End Sub