Sub test()
tablo = Sheets("Feuil2").Range("A1:U" & Sheets("Feuil2").Range("B" & Rows.Count).End(xlUp).Row)
For n = LBound(tablo, 1) + 1 To UBound(tablo, 1)
For m = 2 To UBound(tablo, 2)
Sheets("Feuil1").Cells(n, tablo(n, m) + 1) = 1
Next
Next
End Sub