Formule en code VBA

Bonjour,
J'ai un classeur de gestion des notes. Je compte exécuter une formule en vba qui permettra de comparer l'ancienne note se trouvant dans la feuille Relevé_S1 et dont la première note se trouve dans la cellule H16 à celle se trouvant dans la cellule AM16 de la même feuille et de mettre réponse dans la cellule E16 de la feuille PV_S1.
La formule est celle-ci
E16=si(Relevé!H16="";Relevé!AM16;si(et(Relevé!<>"";Relevé!AM16="déf.");Relevé!H16;si(Relevé!H16<=Relevé!AM16;Relevé!AM16;Relevé!H16)))

Comment développer un code vba pour cette formule

Salut Zoun,

ainsi, sans doute... Quant à la mise en oeuvre...

With Worksheets("Relevé_S1")
    If .[AM16] = "déf." Then
        [E16] = .[H16]
    Else
        [E16] = IIf(.[H16] = "" Or .[AM16] >= .[H16], .[AM16], .[H16])
    End If
End With

A+