Ss totaux enVBA

[flo2002]

Bonjour le forum,

un petit probleme sur mes sous totaux, quand je click sur le bouton de la macro il me met un message d'erreur sur le faitqu'il ne trouve pas les etiquettes et donc je voudrais enlever ce message.
Voici le code:
Sub Ajouter_SsttxRF()
'
' Ajouter_Ssttx Macro
' Macro enregistrée le 09/05/2006 par fllecorr
'

'
Range('B9:gc300').Select
Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(5, 6, 7, 8, _
9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35 _
, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, _
62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, _
88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110 _
, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127, 128, 129, _
130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143, 144, 145, 146, 147, 148, 149 _
, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159, 160, 161, 162, 163, 164, 165, 166, 167, 168, _
169, 170, 171, 172, 173, 174, 175, 176, 177, 178), Replace:=True, PageBreaks:=False _
, SummaryBelowData:=True
Range('a1').Select

End Sub

Une idée? Merci!

 

[AV]

Salut,

Sub zzz()
Application.DisplayAlerts = False
'blabla
Application.DisplayAlerts = True
End Sub

PS : C'est une très, très mauvaise idée d'a&voir des tableaux sans étiquettes de colonnes (ou lignes) !

AV [aaa]

 

[flo2002]

AV AV!
en faite je n'est pas d'etiquette car la ligne au dessus est une ligne masqué ou je cache des formules.
Merci pour le code!