VBA: petiti ciseau dans code visual

[Jose]

Private Sub Sous_totaux_art_Click()
If Range("A4").Value <> "" Then
Range("A3").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.RemoveSubtotal
Selection.Subtotal GroupBy:=1, Function:=xlSum,
TotalList:Array(6),_


Que dois-je faire pour ecrire le petit ciseau avant TotalList

 

[zon]

Re le forum,

bonjour Jose,



Tiens dans va voir dans Fil ciseaux


A+++