Simplification de maccros

Bonjour à tous, et bonne année !

Aujourd'hui, j'aimerais apprendre à simplifier mes lignes de code VBA qui sont très répétitive...

Par exemple, dans mon fichier beaucoup de choses ressemble à ceci :

"

ComboBox821.List = ThisWorkbook.Sheets("formulaire1").Range("E72:E73").Value '

ComboBox822.List = ThisWorkbook.Sheets("formulaire1").Range("E72:E73").Value '

ComboBox823.List = ThisWorkbook.Sheets("formulaire1").Range("E72:E73").Value '

ComboBox824.List = ThisWorkbook.Sheets("formulaire1").Range("E72:E73").Value '

ComboBox825.List = ThisWorkbook.Sheets("formulaire1").Range("E72:E73").Value '

ComboBox826.List = ThisWorkbook.Sheets("formulaire1").Range("E72:E73").Value '

ComboBox827.List = ThisWorkbook.Sheets("formulaire1").Range("E72:E73").Value '

ComboBox828.List = ThisWorkbook.Sheets("formulaire1").Range("E72:E73").Value '

"

Comment pourrais-je simplifier toutes ces lignes ?

En vous remerciant,

Lamonfle

Bonjour

A tester

Sub test()
Dim I As Integer

  With ThisWorkbook.Sheets("formulaire1")
    For I = 821 To 828
      Me.Controls("ComboBox" & I).List = .Range("E72:E73").Value
    Next I
  End With
End Sub

Je te remercie Banzai64, c'est parfaitement fonctionnel comme d'habitude !