Dim Plg As Range, T(), L As Long, Z As String
Set Plg = Worksheets(1).[B2:B44]
T = Plg.Value
For L = 1 To 43
Z = UserForm1.Controls("TextBox" & L + 1).Text
If IsNumeric(Z) Then T(L, 1) = CDbl(Z) ' Else T(L, 1) = Empty ou on laisse l'ancienne valeur ?
Next L
Plg.Value = T
T = Worksheets(1).[D22:D33].Value
For L = 22 To 33
UserForm1.Controls("TextBoxResult" & L).Text = T(L - 21, 1)
Next L