Macro si la valeur est présente copie la ligne

bonjour a tous .

je vous sollicite , car je n’arrive pas a retranscrire en vba :

je souhaite que si la valeur a ou la valeur b ou c," qui sont des date"s se trouve dans la plage J3 a J250

alors les lignes ,qui contiennent ces valeurs soient copier dans la feuilles datesa dansla première ligne D3 a J3 en ajoutant une ligne a chaque fois .

les lignes commence de la colonne D a J.

les valeurs : a =date -1, b =date -2; c = date -3

je vous remercie de votre aide je vous joint un fichier maquette a suivre .

bonne soirée .

Bonjour

Code à essayer

Sub test()
With Sheets("suivi")
    For i = 3 To .Range("J" & .Rows.Count).End(xlUp).Row
        If .Range("J" & i) = Date - 1 Or .Range("J" & i) = Date - 2 Or .Range("J" & i) = Date - 3 Then

            .Range("D" & i & ":" & "J" & i).Copy Sheets("datea").Range("D" & Sheets("datea").Range("J" & Rows.Count).End(xlUp).Row + 1)

        End If
    Next
End With
End Sub

Code à placer dans un module et y associer un bouton

Si ok,lors de ta réponse, clique sur le V vert à coté du bouton Editer pour clôturer le fil

Crdlt

Désoler de répondre seulement maintenant, je vous remercie c'est parfait.

merci pour le temps que vous m'avez consacré.

romain