Sous total + Titre sous VBA

Bonjour le forum,

Je suis un peu bloquée...

J'aimerais faire apparaître un titre de partie et un sous total pour chaque partie que je vais rajouter à mon devis.

J'ai déjà réussi à mettre sous forme de code la "partie sous-total" mais pas le titre de la partie...

Mon code donne ça :

Private Sub CommandButton1_Click()
' Copy Selections to PROPOSAL
Dim c As Range
Dim rng As Range
Dim last As Long
Dim soustotal As Double

soustotal = 0
last = Application.WorksheetFunction.Max(31, Sheets("PROPOSAL").Cells(Rows.Count, "A").End(xlUp).Row) + 1
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Set rng = Range("D9:D100")
    For Each c In rng
        If (Sheets("SERVICES").Range("B" & c.Row).Value <> 0) Then
            Sheets("PROPOSAL").Range("A" & last).Value = Sheets("SERVICES").Range("B" & c.Row).Value
            If (Sheets("SERVICES").Range("C" & c.Row).Value <> 0) Then
                Sheets("PROPOSAL").Range("D" & last).Value = Sheets("SERVICES").Range("C" & c.Row).Value
                If c = "X" Then
                    Sheets("PROPOSAL").Range("E" & last).Value = "1"
                    soustotal = soustotal + Sheets("PROPOSAL").Range("D" & last).Value
                End If
            End If
            last = last + 1
        End If
    Next c
'rng.ClearContents
Sheets("PROPOSAL").Range("A" & last).Value = "Sub Total Services"
Sheets("PROPOSAL").Range("F" & last).Value = soustotal

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
MsgBox " All Copies have been performed ... "
End Sub

Pour le titre, j'ai essayé en mettant :

Sheets("PROPOSAL").Range("A" & last).Value = "Services"

avant le "LAST =" mais ca ne fonctionne pas...

De plus, j'aimerais savoir si c'est possible d'ajouter une couleur de remplissage + mettre en gras le titre et le sous total comme sur la photo :

Si quelqu'un aurait une piste pour moi, je suis preneuse

Merci,

A bientôt

Bonjour,

merci de nous joindre un fichier pour qu'on puisse te venir en aide plus facilement

melch a écrit :

Bonjour,

merci de nous joindre un fichier pour qu'on puisse te venir en aide plus facilement

Bonjour Melch,

Le soucis c'est que mon fichier part dans tous les sens avec beaucoup de feuilles + de données...

Je vais voir ce que je peux faire pour le raccourcir et le rendre plus simple

Re,

Finalement problème résolu grace à la mise en forme conditionnelle + =TROUVE