Dernière précision, est-il possible que la macro fonctionne a partir du moment ou la première cellule est renseigne (dans mon cas numéro du projet) ? Dans mon fichier de travail, j'ai 10 colonnes a reprendre mais il peux s’avérer qu'il n'y est pas de données pour les 2 dernières colonnes. J'ai essaye d'adapter ta macro mais je suis pas vraiment sure de mon coup .
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column <> 10 Then Exit Sub
Dim der As Long
der = Sheet2.Cells(Rows.Count, 1).End(xlUp).Row + 1
With Target
Sheet2.Cells(der, 1).Value = Sheet1.Cells(.Row, 1).Value
Sheet2.Cells(der, 2).Value = Sheet1.Cells(.Row, 2).Value
Sheet2.Cells(der, 3).Value = Sheet1.Cells(.Row, 3).Value
Sheet2.Cells(der, 4).Value = Sheet1.Cells(.Row, 4).Value
Sheet2.Cells(der, 5).Value = Sheet1.Cells(.Row, 5).Value
Sheet2.Cells(der, 6).Value = Sheet1.Cells(.Row, 6).Value
Sheet2.Cells(der, 7).Value = Sheet1.Cells(.Row, 7).Value
Sheet2.Cells(der, 8).Value = Sheet1.Cells(.Row, 8).Value
Sheet2.Cells(der, 9).Value = Sheet1.Cells(.Row, 9).Value
Sheet2.Cells(der, 10).Value = Sheet1.Cells(.Row, 10).Value
End With
End Sub