Bonjour
Code Module
Sub Remplir()
Dim Cel As Range
For Each Cel In Range("D2", Range("D2").End(xlDown))
If Cel > 0 And Cel.Offset(0, 3) = 0 Then Cel.Offset(0, 4).Value = Cel.Value
If Cel = 0 And Cel.Offset(0, 3) > 0 Then Cel.Offset(0, 5).Value = Cel.Offset(0, 3).Value
Next Cel
End Sub
Cordialement