Remplir une colonne en fonction de la valeur de deux autres colonnes

Bonjour,

J'ai créer une macro qui me permet d'ajouter deux nouvelles colonnes (delisted & new launches) avec un header. J'aimerais maintenant faire une boucle qui me permet de remplir chacune de ses colonne en fonction des valeurs dans deux autre colonnes sur la meme ligne comme suit

SI R1 > 0 ET R2 = 0 alors delisted = R1

SINON delisted=0

SI R1= 0 ET R2 > 0 alors new launches = R2

SINON new launches=0

Un grand merci d'avance pour votre aide.

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

Hello

I have tried with VBA autofilter but how you do it is working well too. Awesome!

Thanks you very much.