Choix sur seconde feuille

Sub test()
Dim lastRCible As Long
Dim lastRsrc As Long
Dim Fsrc As Worksheet
Dim Fcible As Worksheet
Dim plageaTraiter As Range
Dim rangeToMerge As Range

Set Fsrc = Sheets("Commande")
Set Fcible = Sheets("Montage")


lastRsrc = Fsrc.Cells.Find("*", Range("B2"), , , xlByRows, xlPrevious).Row + 1
Set plageaTraiter = Fsrc.Range("B3:M" & lastRsrc)
For Each R In plageaTraiter.Rows
 Debug.Print "------>> Ligne : " & R.Row
 
  'on récupère le titre des sections
  If Fsrc.Cells(R.Row, "B").MergeCells Then
  Debug.Print "Cellules fusionnées.. donc.. sous section !"
    'la cellule est fusionnée..cela correspond à une "sous section"
    'recherche de la première ligne vide dans la feuille de destination
    lastRCible = Fcible.Cells.Find("*", Range("B6"), , , xlByRows, xlPrevious).Row + 1
    Set rangeToMerge = Range(Fcible.Cells(lastRCible, "B"), Fcible.Cells(lastRCible, "F"))
    With rangeToMerge
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    rangeToMerge.Merge
    With rangeToMerge.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.149998474074526
        .PatternTintAndShade = 0
    End With
    rangeToMerge.Font.Bold = True
    Fcible.Cells(lastRCible, "B").Value = Fsrc.Cells(R.Row, "B").Value
  End If
 
 If Fsrc.Cells(R.Row, "M").Value < 0 Then
    Debug.Print "La cellule est négative ! => " & Cells(R.Row, "M").Value
    'recherche de la première ligne vide dans la feuille de destination
    lastRCible = Fcible.Cells.Find("*", Range("B6"), , , xlByRows, xlPrevious).Row + 1
    Fcible.Cells(lastRCible, "B").Value = Fsrc.Cells(R.Row, "B").Value
    Fcible.Cells(lastRCible, "C").Value = Fsrc.Cells(R.Row, "K").Value
    Fcible.Cells(lastRCible, "D").Value = Fsrc.Cells(R.Row, "L").Value
    Fcible.Cells(lastRCible, "E").Value = Fsrc.Cells(R.Row, "M").Value
    Fcible.Cells(lastRCible, "F").FormulaLocal = "=C" & lastRCible & "-D" & lastRCible
    End If

Next


End Sub

Sub RAZtblCommande()
Dim Fcible As Worksheet
Dim lastRCible As Long
Set Fcible = Sheets("Montage")
lastRCible = Fcible.Cells.Find("*", Range("B6"), , , xlByRows, xlPrevious).Row + 1
Rows(7 & ":" & lastRCible).Delete
End Sub

 Call  RAZtblCommande()