Sub Actualiser_ComboChx(item$, compteur As Byte)
'Actualisation la liste de la ComboBox "ComboChx" après avoir sélectionné et validé l'item "Image" / "No Image"
'- item : l'item de la liste de la ComboBox "ComboChx" que l'on veut modifier
'- Compteur : le numéro de compteur associé à l'item modifiable
Application.ScreenUpdating = False
Dim dico As Object, listeocompteurs As Variant, listeoptions As Variant, i As Byte, pos As Byte, NouvelItem$(5), merde
Set dico = CreateObject("Scripting.Dictionary")
Compteurs compteur, 2 '--> compt(7) pour l'item "Image" / "No Image"
listeoptions = Array("Calculatrice", "Bloc Note", "Relooking", "Image", "Help") 'liste originelle de tous items (avant modifications) de la ComboBox
'Récupère la position de l'item dans l'Array
For i = 0 To UBound(listeoptions)
If item = listeoptions(i) Then pos = i: Exit For
Next
'Dresse la nouvelle liste des items (dont celui modifié) de la ComboBox "ComboChx"
For i = 1 To UBound(listeoptions) + 1
NouvelItem(i) = IIf(item <> listeoptions(i - 1), listeoptions(i - 1), IIf(compt(compteur) = 1, "No " & item, item))
Next
listeoptions = Array(NouvelItem(1), NouvelItem(2), NouvelItem(3), NouvelItem(4), NouvelItem(5)) 'nouveaux items de la ComboChx "ComboChx" de la feuille "Hoja1"
For i = 0 To UBound(listeoptions) 'rempli le dictionnaire ("dico") avec les éléments de la matrice "listeoptions" (Option Base 0)
dico(listeoptions(i)) = ""
Next
Sheets("Hoja1").ComboChx.List = dico.keys 'dresse la liste de la ComboBox "ComboChx" à partir du dictionnaire
Sheets("Hoja1").ComboChx.ListIndex = pos 'sélection de l'item (qu'il soit "item" ou "No item") de la liste de la ComboBox "ComboChx"
ActiveSheet.Shapes("LatLong").Visible = IIf(item = "Image" And compt(compteur) = 1, True, False) 'une image qui apparaît ou pas
Worksheets(1).ScrollArea = IIf(VueEcran, "", IIf(item = "Image" And compt(compteur) = 1, "A1:T21", "A1:T17")) 'plage accessible de la feuille en modes "Vue Normal" & "Plein Écran",
'et suivant qu'il y ait ou pas l'image en mode "Plein Écran"
[C2500].Select: Application.ScreenUpdating = True
End Sub