Bonjour et bienvenue sur le forum,
Met le code suivant dans le module de la feuille 1 et teste :
Private Sub Worksheet_Change(ByVal Target As Range)
'délimiter la zone de saisie
If Not Intersect(Target, Range("C2:C7")) Is Nothing Then
If Target = "G" Then 'Ajouter 3 points
Target.Offset(0, -1) = Target.Offset(0, -1) + 3
ElseIf Target = "N" Then 'Ajouter 2 points
Target.Offset(0, -1) = Target.Offset(0, -1) + 2
ElseIf Target = "P" Then ' Ajouter 1 point
Target.Offset(0, -1) = Target.Offset(0, -1) + 1
End If
End If
End Sub