Dim toto As String
With ActiveWorkbook.SlicerCaches("Segment_COUNTRYCODE1")
Set k = ActiveWorkbook.SlicerCaches("Segment_COUNTRYCODE1")
Sheets("Selection").Select
toto = Range("C3").Value
Sheets("OngletFinal").Select
For i = 1 To .SlicerItems.Count
If k.SlicerItems(i).Name = toto Then
k.SlicerItems(i).Selected = True
Exit For
End If
Next i
For i = 1 To .SlicerItems.Count
If k.SlicerItems(i).Name <> toto Then
k.SlicerItems(i).Selected = False
End If
Next i
End With