Bonsoir,
il vous faut passer par la surveillance événementielle de la feuille avec la surveillance "Change".
Elle aura pour effet de faire "quelque chose" si la valeur en $D1 change et est égale à 100
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D1")) Is Nothing Then
If Range("D1").Value = 100 Then
Range("G9").Value = Range("D9").Value
End If
End If
End Sub
Par contre D3 ne sera jamais égal à 1, car aujourdhui() donne un numéro de série qui correspond au nombre de jour qui le sépare (aujourdhui()) du 1 janvier 1900 donc à ce jour Aujourdhui() renvoie 42055...
@ bientôt
LouReeD