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