Bonjour,
Dans ton fichier test ... pas de chiffres ... mais, si mes yeux ne me trompent pas ... pas de calculs ( ni somme, ni autre chose) entre tes deux feuilles ...
On dirait qu'il ne s'agit que de présentation ... donc purement cosmétique ...
Me trompe-je ?
Private Sub Worksheet_Change(ByVal R As Range)
Dim P As Range, F As Worksheet, Q As Range, lig As Variant, col As Variant
Set P = [C5].CurrentRegion
Set R = Intersect(R, P)
If R Is Nothing Then Exit Sub
Set F = Sheets("Suivi")
For Each R In R.EntireRow 'si entrées/effacements multiples
Set Q = Intersect(R, P)
lig = Application.Match(Q(3), F.Columns(2), 0)
col = Application.Match(Q(1), F.Rows(2), 0)
If IsNumeric(lig) And IsNumeric(col) Then F.Cells(lig, col) = Application.SumIfs(P.Columns(9), P.Columns(1), Q(1), P.Columns(3), Q(3))
Next
End Sub
Private Sub Worksheet_Change(ByVal R As Range)
Dim P As Range, F As Worksheet, Q As Range, lig As Variant, col As Variant
Set P = [C5].CurrentRegion
Set R = Intersect(R, P)
If R Is Nothing Then Exit Sub
Set F = Sheets("Suivi")
For Each R In R.EntireRow 'si entrées/effacements multiples
Set Q = Intersect(R, P)
lig = Application.Match(Q(3), F.Columns(2), 0)
col = Application.Match(Q(1), F.Rows(2), 0)
If IsNumeric(lig) And IsNumeric(col) Then F.Cells(lig, col) = Q(9)
Next
End Sub
=RECHERCHEV($B4;DECALER('Données sources'!$E$5;EQUIV(D$2;'Données sources'!$C$6:$C$16841;0);;NB.SI('Données sources'!$C$6:$C$16841;D$2);7);7;0)