J'ai finalement réussi à changer la largeur d'image pour faire comme une barre de progression.
Je vous mets le code ici pour les curieux :
Private Sub ListBox1_Click()
For j = 1 To 11
If Controls("LabelN" & j).Caption = "" Then
Me.Controls("LabelN" & j).Caption = Me.ListBox1.Value
j = j + 11
Else
End If
Next j
Dim Ind As Long, Msg As Integer
Msg = 0
With Me.ListBox1
r = .List(i, 4) * 0.2 'calcul de r : on prend la valeur d'une colonne de la listbox
Msg = Image2.Width + r 'on rajoute r à la longueur de l'image pour l'augmenter en fonction du nb de ligne sélectionné
Image2.Width = Msg
End With
If Me.Image2.Width <= Label8.Width Then
Me.Image2.BackColor = RGB(54, 214, 62)
Else
Me.Image2.BackColor = RGB(237, 42, 9)
End If
End Sub