Valeur par défaut et condition

Bonjour à tous,

Je souhaitais pouvoir remplir dans la colonne G, une valeur par défaut, si dans la colonne A nous rentrons une date.

Par exemple, en A3 je saisie une date, en G3, s'inscrit 480, si je modifie cette valeur je ne veux pas qu'elle soit remplacée par 480 mais qu'elle reste telle que.

Je pensais avoir trouvé la solution avec le code ci-dessous, mais le problème est que au bout de la 3ème ligne, la macro tourne en boucle, pour finir par ne plus répondre.

Pourriez-vous m'aider svp ?

Merci :)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Sasu As Integer

For Sasu = 3 To 20

If Worksheets("Feuil1").Cells(Sasu, 1) <> "" Then Worksheets("Feuil1").Cells(Sasu, 7) = "480"

Next Sasu

End Sub

Bonjour Planetesud, bonjour le forum,

Essaie comme ça :

Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Target, Range("A3:A20")) Is Nothing Then Exit Sub
If Target.Offset(0, 6).Value = "" Then Target.Offset(0, 6).Value = 480
End Sub

Merci beaucoup ! ça marche du feu de tonnerre de Dieu.

Bonne fin de journée