Formule avec conditions en VBA

Bonsoir à tous

Dans le fichier ci joint je souhaiterais

Si la colonne A est vide (vide mais il y a formule dedans) alors

Si colonne H = date du jour et colonne K vide alors "A COMMANDER"

Si colonne H= date du jour et colonne K rempli alors "SAISI CE JOUR"

Si colonne H < date du jour et colonne K vide alors "A VERIFIER"

Si colonne G = "non géré' et colonne K vide alors "A COMMANDER"

Si la colonne A est la date du jour alors marqué "Réceptionner ce jour".

Je souhaiterais tout ça en vba sans que ca efface cases déjà remplies.

Merci à vous

Bonjour,

je ne crois pas que toutes les conditions soient rempli, mais voici un exemple,

Sub test10()
rw = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To rw
    If Range("A" & i) = "" Then
        If Range("H" & i) = Date And Range("K" & i) = "" Then Range("C" & i) = "A COMMANDER"
        If Range("H" & i) = Date And Range("K" & i) <> "" Then Range("C" & i) = "SAISI CE JOUR"
        If Range("H" & i) < Date And Range("K" & i) = "" Then Range("C" & i) = "A VERIFIER"
        If Range("G" & i) = "non géré" And Range("K" & i) = "" Then Range("C" & i) = "A COMMANDER"

    ElseIf Range("A" & i) = Date Then
        Range("C" & i) = "Réceptionner ce jour"
    Else
'        ??
    End If
Next i
End Sub

Bonjour I20100

J'ai essayé vite fait mais ca met les données dans la colonne C et non A

Je regarde ce soir.

Merci

Bonne journée