Bonjour,
avec une petite macro :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lig As Long
If Target.Address = "$D$4" Then
With Worksheets("Feuil2")
lig = Application.Max(3, .Cells(Rows.Count, 4).End(xlUp).Row)
lig = lig + (lig + 1) Mod 2 + 1
.Cells(lig, 4) = Target.Value
End With
End If
End Sub
Inscrira sur la prochaine ligne paire, que tu aies noté ou non qq chose sur la ligne impaire
eric