Private Sub UserForm_Initialize()
Dim dLg As Long, Lg As Long, Lb As Byte
With Sheets("Feuil1")
dLg = .Range("A1").End(xlDown).Row
Lb = 8
For Lg = dLg To dLg - 3 Step -1
Me.Controls("Label" & Lb - 1) = .Range("C" & Lg)
Me.Controls("Label" & Lb) = .Range("A" & Lg)
Lb = Lb - 2
Next
Me.Label9 = .Cells(dLg, 2)
End With
End Sub