Private Sub CommandButton1_Click()
Dim I As Integer
With Sheets("Data")
For I = 0 To Application.Min(9, Me.ListBoxLocataire.ListCount - 1)
.Range("F" & 5 + I) = Me.ListBoxLocataire.List(I, 1)
.Range("G" & 5 + I) = Me.ListBoxLocataire.List(I, 3)
Next I
End With
End Sub