Sub InsererLigneVideBX()
Sheets("BX").Select
Dim c As Range
For Each c In Range([COLOR="Red"][B]"A1:A" & Cells(Rows.Count, 1).End(xlUp).Row[/B][/COLOR])
If UCase(Left(c, 5)) = "TOTAL" And c.Offset(1, 0) <> "" Then c.Offset(1, 0).EntireRow.Insert
Next
End Sub
Sub InsererLigneVideBX()
Dim c As Range
'On Error Resume Next
'à cause de la dernière ligne de la colonne A
With Sheets("BX")
For Each c In .Range("A1:A" & .[A65536].End(xlUp).Row)
' écrire TOTAL en majuscule
If UCase(Left(c, 5)) = "TOTAL" And c.Offset(1, 0) <> "" Then
c.Offset(1, 0).EntireRow.Insert
End If
Next
End With
c = Nothing
End Sub