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