Re : Insertion de lignes à conditions
petit bout de code a tester voir si ca repond a tes besoins:
Columns("A:C").Select
Selection.Subtotal GroupBy:=1, Function:=xlCount, TotalList:=Array(3), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
Selection.Subtotal GroupBy:=2, Function:=xlCount, TotalList:=Array(3), _
Replace:=False, PageBreaks:=False, SummaryBelowData:=True
For Each X In Range("A1:A1000")
If X.Value = "NB*" Then Range(X).Clear
Next X