Hello mon petit (ou ma petite) va savoir
C'est assez court, mais ça suffit :
Sub Historique()
Dim LastLigne As Integer
LastLigne = Sheets("Historique.").Range("A65536").End(xlUp).Row + 1
With Sheets("Historique.")
.Range("c" & LastLigne) = Sheets("Bon de Mandate").Range("c25")
.Range("B" & LastLigne) = Sheets("Bon de Mandate").Range("E10")
.Range("d" & LastLigne) = Sheets("Bon de Mandate").Range("b62")
.Range("f" & LastLigne) = Sheets("Bon de Mandate").Range("e7")
.Range("h" & LastLigne) = Sheets("Bon de Mandate").Range("d17")
.Range("g" & LastLigne) = Sheets("Bon de Mandate").Range("b35")
.Range("i" & LastLigne) = Sheets("Bon de Mandate").Range("c37")
.Range("a" & LastLigne) = Sheets("Bon de Mandate").Range("E5")
.Range("e" & LastLigne) = Sheets("Commande").Range("E9")
.Range("Z" & LastLigne) = Application.UserName
End With
End Sub
C'est une réponse que j'ai moi-même eue et qui fonctionne pourvu qu'on l'adapte à son fichier. Pense à nommer tes deux onglets, et surtout historique étant un nom réservé à excel, rajoute un point.
Les cellules en bout de ligne par exemple, remplace les par A1, B1 etc et après fais le test.