Sub RecapBy()
'affiche les personnes contenues dans la listBox dans la feuille Recap
Dim r As Integer
Set ShRe = ThisWorkbook.Sheets("Recap")
r = ThisWorkbook.Sheets("Recap").Range("A" & Cells.Rows.Count).End(xlUp).Row + 1
'If UserForm4.ListBox8.ListCount < 1 Then Exit Sub
'If UserForm4.ListBox8.ListCount > 1 Then
With UserForm4.ListBox8
[COLOR="Red"]ThisWorkbook.Sheets("Recap").Range(Cells(r, 4), Cells(r + .ListCount - 1, 3)) = .List[/COLOR]
End With
'End If
End Sub