Public Sub Afficher(ByVal RngTit As Range, ByVal RngDon As Range)
Dim T(), C&
T = RngTit.Value
For C = 5 To UBound(T, 2): Me("TextBox" & C - 1).Text = T(1, C): Next C
T = RngDon.Value
TextBox1.Text = T(1, 2)
TextBox2.Text = T(1, 3)
TextBox3.Text = Format(T(1, 4), "0.00 €")
For C = 5 To UBound(T, 2): Me("TextBox" & C + 4).Text = Format(T(1, C), "0.00"): Next C
Me.Show
End Sub