Array

Sub Tableau()

With Range("o4"): .Value = Array("Totaux-Montants"): .HorizontalAlignment = xlCenter: .Font.Bold = True: End With
Range("o5:o8").FormulaLocal = "=SOMME(C5:N5)"
Range("b4").Font.Bold = True
Range("b9").Font.Bold = True: Range("b9").Font.Color = RGB(192, 0, 0)
Range("c5:o9").NumberFormat = ("0.-")
End With


'D'après l'éxemple de Jacques Boisgontier - ça remplace Array
Dim t

t = [{"Cantons";"Vaud";"Fribourg";"Berne";"Genève";"Sous-Totaux"}] 
Range("b4", "b9").Value = t

End Sub

Sub Comptage1()
Dim plage As Range, tablo1, tablo2, tablo3, ub&, i&, j&
Set plage = Sheets("GestStck").Range("B4:C" & Sheets("GestStck").[B65000].End(xlUp).Row)
tablo1 = plage.Columns(1)
plage.Columns(2).ClearContents 'RAZ
tablo2 = plage.Columns(2)
tablo3 = Sheets("Recapmat").Range("E6", Sheets("Recapmat").[E65000].End(xlUp))
ub = UBound(tablo3)
For i = 1 To UBound(tablo1)
  For j = 1 To ub
    If tablo1(i, 1) = tablo3(j, 1) Then tablo2(i, 1) = tablo2(i, 1) + 1
  Next
Next
plage.Columns(2) = tablo2
End Sub

Sub Comptage2()
Dim plage1 As Range, tablo1, tablo2, plage2 As Range, i&
Set plage1 = Sheets("GestStck").Range("B4:C" & Sheets("GestStck").[B65000].End(xlUp).Row)
tablo1 = plage1.Columns(1)
tablo2 = plage1.Columns(2)
Set plage2 = Sheets("Recapmat").Range("E6", Sheets("Recapmat").[E65000].End(xlUp))
For i = 1 To UBound(tablo1)
  tablo2(i, 1) = Application.CountIf(plage2, tablo1(i, 1)) 'NB.SI
Next
plage1.Columns(2) = tablo2
End Sub