Bonjour,
copier cette macro sur la page code de la Feuil1
la macro s'exécute lorsque qu'une valeur est inscrit en colonne D de la Feuil1
ÉDIT: j'oubliais le test de Nbr agneaux (2)
Private Sub Worksheet_Change(ByVal Target As Range)
Set isect = Application.Intersect(Target, Range("D:D"))
If isect Is Nothing Then Exit Sub
If Target = 2 Then
rw = Sheets("Feuil2").Cells(Rows.Count, 1).End(xlUp).Row + 1
For i = 0 To 1
With Sheets("Feuil2")
.Cells(rw + i, 1) = Target.Offset(0, -3)
.Cells(rw + i, 2) = Target.Offset(0, -2)
.Cells(rw + i, 3) = Target.Offset(0, 3)
'.Cells(rw + i, 4) = ?
.Cells(rw + i, 5) = Target.Offset(0, 1)
End With
Next
End If
End Sub