Dim Ligne1 As Long, Ligne2 As Long, Tablo, i as Long
Tablo = Array("Prénom1", "Prénom2", "Prénom3")
For i = lBound(Tablo) to ubound(tablo)
Sheets("introduction").Select
Cells.Select
Range("AY157").Activate
Selection.AutoFilter
Selection.AutoFilter Field:=4, Criteria1:="=1", Operator:=xlOr, _
Criteria2:="=2"
Selection.AutoFilter Field:=13 + i, Criteria1:="x"
Range("D71:L1404").Select
Selection.Copy
Sheets("planing").Select
Ligne1 = Range("B65536").End(xlUp).Offset(1, 0).Row
Range("B" & Ligne1).Select
ActiveSheet.Paste
Ligne2 = Range("B65536").End(xlUp).Row
Range("A" & Ligne1 & ":A" & Ligne2).Value = Tablo(i)
Sheets("introduction").Select
Cells.Select
Range("D5").Activate
Selection.AutoFilter
Selection.AutoFilter Field:=4, Criteria1:="=1", Operator:=xlOr, _
Criteria2:="=2"
Selection.AutoFilter Field:=13+i, Criteria1:="x"
Range("AY71:AY1404").Select
Range("AY1404").Activate
Selection.Copy
Sheets("planing").Select
Range("K" & Ligne1).Select
ActiveSheet.Paste
Range("B" & Ligne2+1).value = " "
Next i