Sub Découpage()
Application.ScreenUpdating = False
Set plg = ActiveSheet.UsedRange
plg.UnMerge: plg.WrapText = False
Set c = plg.Columns("G")
For i = plg.Rows.Count To 1 Step -1
If VarType(c.Rows(i)) = vbEmpty Or c.Rows(i) = "Cur." Then c.Rows(i).EntireRow.Delete
Next i
Set plg = ActiveSheet.UsedRange: nblign = plg.Rows.Count
With plg
.Offset(nblign, 0).Resize(1, .Columns.Count - 1).Formula = "=sum(A1:A197)"
.Offset(nblign, 0).Resize(1, .Columns.Count - 1).Font.Bold = True
.EntireColumn.AutoFit
.NumberFormat = "[$-1010409]# ### ### ### ###"
End With
Application.ScreenUpdating = True
End Sub