Private Sub UserForm_Activate()
Open ActiveWorkbook.Path & "\labels.txt" For Input As #1
Do While Not EOF(1)
Input #1, txtLine
Tbl = Split(txtLine, vbTab)
'Ecrit les données dans les labels
Me.lblNom.Caption = Tbl(0)
Me.lblPrenom.Caption = Tbl(1)
Me.lblAge.Caption = Tbl(2)
Loop
Close #1
End Sub