Balbutiements

Sub Bouton8_QuandClic()
Dim c As Range
Dim i As Byte

'pour chaque cellule de la colonne b de la ligne 3, jusqu'a la derniere cellule non vide
For Each c In Range('b3:b' & Range('b65536').End(xlUp).Row)
    'si la cellule contient ' Salaires et traitements' et la cellule de la ligne suivante
    'contient ' Charges sociales' alors ....
    If c = ' Salaires et traitements' And c.Offset(1, 0) = ' Charges sociales' Then
        'inserer une ligne apres la cellule ' Charges sociales'
            c.Offset(2, 0).EntireRow.Insert 'Shift:=xlDown
            'placer 'salaires + charges' sur la nouvelle ligne en colonne b
            c.Offset(2, 0).Value = 'salaires + charges'
            'colorier celle-ci en rose (???)
            c.Offset(2, 0).Interior.ColorIndex = 38
        'pour i=1 jusqu'à 3
        For i = 1 To 3
            'sur la nouvelle ligne en colonne c,d et e :
            'placer la formule de la somme
            c.Offset(2, i).FormulaR1C1 = '=SUM(R[-2]C:R[-1]C)'
            'colorier en rose
            c.Offset(2, i).Interior.ColorIndex = 38
        Next i
    End If
Next c


End Sub

Cliquez pour agrandir...