=SI(Feuil1!H1="janvier";Feuil1!A1;0)+SI(Feuil2!H1="janvier";Feuil2!A1;0)+SI(Feuil3!H1="janvier";Feuil3!A1;0)+SI(Feuil4!H1="janvier";Feuil4!A1;0)
=SI(MOIS(Feuil1!H1)=1;Feuil1!A1;0)+SI(MOIS(Feuil2!H1)=1;Feuil2!A1;0)+SI(MOIS(Feuil3!H1)=1;Feuil3!A1;0)+SI(MOIS(Feuil4!H1)=1;Feuil4!A1;0)
Private Sub Worksheet_Activate()
Dim sh As Worksheet
Sheets("Somme").[A1] = 0
For Each sh In Worksheets
If sh.Name <> "SOMME" And sh.Cells(1, "H") = "janvier" Then
Sheets("Somme").[A1] = Sheets("Somme").[A1] + sh.[A1]
End If
Next
End Sub
Sub Test()
Dim j&, s$, TabGen(), TabTemp, TabMois(1 To 3), F As Worksheet
TabGen = Array(Array("JANVIER", TabMois), Array("FEVRIER", TabMois), Array("MARS", TabMois))
For Each F In Worksheets
If F.Name <> "LEGENDE" And F.Name <> "Somme" Then
s = UCase(F.Cells(1, 8).Value)
For j = 0 To UBound(TabGen)
If TabGen(j)(0) = s Then
TabTemp = TabGen(j)(1)
TabTemp(1) = TabTemp(1) + CLng(F.Cells(12, 2))
TabTemp(2) = TabTemp(2) + CLng(F.Cells(12, 4))
TabTemp(3) = TabTemp(3) + CLng(F.Cells(12, 3))
TabGen(j)(1) = TabTemp
End If
Next j
End If
Next F
For j = 0 To UBound(TabGen)
Sheets("Somme").Cells(2, j + 2).Resize(3, 1).Value = Application.Transpose(TabGen(j)(1))
Next j
End Sub
Ké lignes ?aussi quand même sauf pour ces lignes de code a rajouter