re
Pour une fois que je fais l'effort de répondre par formule, il fallait une macro loool. décidément je suis toujours en décalage.
essaye ceci
Public Sub vev()
Dim c As Range
'pour chaque cellule de la g1 à la derniere
For Each c In Range("g1:g" & Range("g65000").End(xlUp).Row)
'si la cellule est non vide, mettre en colonne H la valeur de a3
If c.Value <> "" Then c.Offset(0, 1).Value = Range("a3")
Next c
End Sub
Salut
Hervé