re
voilà le texte que j'ai mis dans la procèdure
UserForm_Initialize
Private Sub UserForm_Initialize()
ModuleOption.ini
Dim tabtemp As Variant
Dim L As Byte, C As Byte, I As Byte
Dim Ch As String
I = 13
tabtemp = O4.Range('P2:R14').Value
For L = 1 To UBound(tabtemp, 1)
For C = 1 To UBound(tabtemp, 2)
Me.Controls('Label' & I).Caption = Format(tabtemp(L, C), '#,##0.00' & ' €')
I = I + 1
Next
Next
End Sub
bonne fin de Journée