Sub RempliData()
Dim Donnees, i As Long, ligne As Long
Donnees = ThisWorkbook.Worksheets("Bibliothèque").Range("Données").Value
ligne = Sheets("Bibliothèque").Cells(65536, 1).End(xlUp).Row + 1
Sheets("Bibliothèque").Cells(ligne, 1).Value = Donnees(1, 1)
Sheets("Bibliothèque").Cells(ligne, 2).Value = Donnees(2, 1)
Sheets("Bibliothèque").Cells(ligne, 3).Value = Donnees(3, 1)
Sheets("Bibliothèque").Cells(ligne, 4).Value = Donnees(4, 1)
Sheets("Bibliothèque").Cells(ligne, 5).Value = Donnees(5, 1)
Sheets("Bibliothèque").Cells(ligne, 6).Value = Donnees(6, 1)
Sheets("Bibliothèque").Cells(ligne, 7).Value = Donnees(7, 1)
Sheets("Bibliothèque").Cells(ligne, 8).Value = Donnees(8, 1)
Sheets("Bibliothèque").Cells(ligne, 9).Value = Donnees(9, 1)
End Sub