Private Sub Worksheet_Calculate()
[G1] = "" 'RAZ
With ThisWorkbook.SlicerCaches("Segment_Légume")
If Not .SlicerItems("Chou").Selected Then
[G1].Hyperlinks.Add [G1], ThisWorkbook.Path & "\Carotte.xlsx", TextToDisplay:="Carotte.xlsx"
ElseIf Not .SlicerItems("Carotte").Selected Then
[G1].Hyperlinks.Add [G1], ThisWorkbook.Path & "\Chou.xlsx", TextToDisplay:="Chou.xlsx"
End If
End With
End Sub