relance

bonjour le forum

j'utilise dans mon classeur la macro ci dessous pou permettre de relancer les acheteurs:
actuellement cette macro me permet si la valeur de la colonne E est = à "Traitement ACHATS ou Validation ACHATS" et que la valeur de la colonne G est = à "Oui" de relancer

Je souhaite faire en plus deux macros supplémentaires:
- l'une où la colonne E est = à "Traitement ACHATS ou Validation ACHATS" , où la valeur de la colonne G est = à "Oui" et la colonne R (numéro de commande) est vide

-l'autre où la colonne E est = à "Traitement ACHATS ou Validation ACHATS" , où la valeur de la colonne G est = à "Oui", la colonne R (numéro de commande) est pleine mais la colonne M (date livraison) est vide


Quelqu'un peut t'il m'aider SVP 🙂
merci



Sub relance_Achat()

Dim cell As Range

Application.ScreenUpdating = False
With Sheets("Relance")
.Range("A4" & ":" & "H" & .Range("G65536").End(xlUp).Row + 1).Clear
End With

For Each cell In Sheets("FEB").Range("E7:E" & Sheets("FEB").Range("E65536").End(xlUp).Row)

If cell.Value = "Validation ACHATS" Or cell.Value = "Traitement ACHATS" Then
If cell.Offset(0, 2) = "Oui" Then
cell.Offset(0, -3).Copy Sheets("Relance").Range("A" & Sheets("Relance").Range("A65536").End(xlUp).Row + 1)
cell.Offset(0, -1).Copy Sheets("Relance").Range("B" & Sheets("Relance").Range("B65536").End(xlUp).Row + 1)
cell.Copy Sheets("Relance").Range("C" & Sheets("Relance").Range("C65536").End(xlUp).Row + 1)
cell.Offset(0, 1).Copy Sheets("Relance").Range("D" & Sheets("Relance").Range("D65536").End(xlUp).Row + 1)
cell.Offset(0, 8).Copy Sheets("Relance").Range("E" & Sheets("Relance").Range("E65536").End(xlUp).Row + 1)
cell.Offset(0, 9).Copy Sheets("Relance").Range("F" & Sheets("Relance").Range("F65536").End(xlUp).Row + 1)
cell.Offset(0, 10).Copy Sheets("Relance").Range("G" & Sheets("Relance").Range("G65536").End(xlUp).Row + 1)
cell.Offset(0, 11).Copy Sheets("Relance").Range("H" & Sheets("Relance").Range("H65536").End(xlUp).Row + 1)
End If
End If

Next
Tri_InserLigne
Application.ScreenUpdating = True

End Sub