COMBOBOX
    'combobox Pastille
    For i = 2 To 10
        cmbPastille.AddItem (sheetFormat.Cells(i, 3).Value)
    Next

ACTU IMAGE PASTILLE
Private Sub cmbPastille_Change()
    Dim chemin As String: chemin = ThisWorkbook.Path & "\Images\Pastilles\"
    Select Case cmbPastille.Value
        Case "Fruité et léger"
            imgPastille.Picture = LoadPicture(chemin & "fruiteLeger.jpg")
        Case "Fruité et généreux"
            imgPastille.Picture = LoadPicture(chemin & "fruiteGenereux.jpg")
        Case "Aromatique et souple"
            imgPastille.Picture = LoadPicture(chemin & "aromeSouple.jpg")
        Case "Aromatique et charnu"
            imgPastille.Picture = LoadPicture(chemin & "aromeCharnu.jpg")
        Case "Délicat et léger"
            imgPastille.Picture = LoadPicture(chemin & "delicatLeger.jpg")
        Case "Fruité et vif"
            imgPastille.Picture = LoadPicture(chemin & "fruiteVif.jpg")
        Case "Aromatique et rond"
            imgPastille.Picture = LoadPicture(chemin & "aromeRond.jpg")
        Case "Fruité et doux"
            imgPastille.Picture = LoadPicture(chemin & "fruiteDoux.jpg")
        Case "Fruité et extra-doux"
            imgPastille.Picture = LoadPicture(chemin & "fruiteExtraDoux.jpg")
    End Select
    UserForm1.Repaint
End Sub