[BrunoM45]

Salut tout le monde,

Alan,
Tu peux essayer une petite fonction bidouillée par mes soins

Function SommeSet(Plage As Range, VFind As String)
  Dim Cel As Range, TotCel As Single
  TotCel = 0
  ' Pour chaque ligne de la plage
  For Each Cel In Plage
    If Cel.Value = VFind Then
      ' La valeur est normalement dans la 4ème colonne, donc décalage de 3
      TotCel = TotCel + Cel.Offset(0, 3)
    End If
  Next Cel
  SommeSet = TotCel
End Function

Dans une cellule tu mets la fonction : =SommeSet(PlagesTableau,Valeur trouver pour addition)

Ci-joint le fichier avec la petite fonction sans prétention ...