'Test pour savoir s'il y a des personnes qui rentrent dans ce critère
Range("J9").Select
if not ActiveCell.End(xlDown).row=rows.count Then
Range(ActiveCell.Offset(1, 0), ActiveCell.End(xlDown)).Select
Selection.Copy
'Copie de la selection de noms dans la première cellule dispo
Sheets("TdB Vivier Programme").Activate
Range("G6").Select
Do While ActiveCell.Value > ""
ActiveCell.Offset(1, 0).Select
Loop
ActiveSheet.Paste