Sub ListerLesChoix()
Dim AireNomsPrenoms As Range, AireAteliers As Range
Dim I As Integer, J As Integer
Dim LigneChoix As ListRow
Dim TabChoix As ListObject
Set TabChoix = Sheets("Feuil4").ListObjects("t_Choix")
Set AireNomsPrenoms = Range("t_Ateliers[Nom prénom]")
Set AireAteliers = Range("t_Ateliers[#headers]")
'Debug.Print AireAteliers.Address
For I = 1 To AireNomsPrenoms.Count
With AireNomsPrenoms(I)
For J = 2 To AireAteliers.Count
If .Offset(0, J - 1) > 0 Then
' Debug.Print .Value & " : " & .Offset(0, J - 1) & ", " & AireAteliers(J)
Set LigneChoix = TabChoix.ListRows.Add
With LigneChoix
.Range(1, 1) = AireNomsPrenoms(I).Value
.Range(1, 2) = AireNomsPrenoms(I).Offset(0, J - 1)
.Range(1, 3) = AireAteliers(J)
End With
Set LigneChoix = Nothing
End If
Next J
End With
Next I
Set AireNomsPrenoms = Nothing: Set AireAteliers = Nothing
Set TabChoix = Nothing: Set LigneChoix = Nothing
End Sub