Sub Macro1()
If MsgBox("On y va ?", vbYesNo) = vbNo Then Exit Sub
For i = 2 To Sheets("saisie").Cells(2 ^ 16, 1).End(xlUp).Row
For j = 1 To Sheets("saisie").Cells(i, 256).End(xlToLeft).Column
Sheets("bd").Cells(2 ^ 16, j).End(xlUp)(2) = Sheets("saisie").Cells(i, j)
Next j
Next i
Msgbox "FINI"
End Sub