Private Sub CommandButton1_Click()
If Matricule.ListIndex = -1 Then Exit Sub
With Matricule
Range(Cells(.List(.ListIndex, 1), 1), Cells(.List(.ListIndex, 1), 8)).PrintOut
End With
End Sub
'_______________________________________________
Private Sub UserForm_Activate()
Dim i As Integer
Matricule.ColumnCount = 2
Matricule.ColumnWidths = '80;0'
For i = 2 To Range('a65536').End(xlUp).Row
Matricule.AddItem Cells(i, 1)
Matricule.List(Matricule.ListCount - 1, 1) = i
Next i
End Sub