Fallait le dire au départ !
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Not Intersect(Target, Me.Range("G1:G2")) Is Nothing Then
For Each c In Me.Range("A1:A5")
If c.Value = Me.Range("G1") Then
c.Offset(, 2) = Me.Range("G2")
Exit For
End If
Next c
End If
End Sub
Procédure à placer dans le module de la feuille concernée.