Bonjour, je ne vois que ceci comme changement à faire.
'Me.Rows(lc + 1).Insert 'Modifié
Select Case nc
Case "R"
Me.Cells(lc, 4).Value = Me.Cells(1, 4).Value
Me.Cells(lc, 6).Value = Me.Cells(1, 6).Value
'Me.Cells(lc + 1, 4).Value = Me.Cells(2, 4).Value 'Modifié
'Me.Cells(lc + 1, 6).Value = Me.Cells(2, 6).Value 'Modifié
'Me.Range(Cells(lc, 5), Cells(lc + 1, 5)).Merge 'Modifié
Case "T"
Me.Rows(lc + 1).Insert
Me.Cells(lc, 4).Value = Me.Cells(3, 4).Value
Me.Cells(lc, 6).Value = Me.Cells(3, 6).Value
Me.Cells(lc + 1, 4).Value = Me.Cells(4, 4).Value
Me.Cells(lc + 1, 6).Value = Me.Cells(4, 6).Value
Me.Cells(lc + 2, 4).Value = Me.Cells(5, 4).Value
Me.Cells(lc + 2, 6).Value = Me.Cells(5, 6).Value
Me.Range(Cells(lc, 5), Cells(lc + 2, 5)).Merge
Case "A"
Me.Cells(lc, 4).Value = Me.Cells(6, 4).Value
Me.Cells(lc, 6).Value = Me.Cells(6, 6).Value
'Me.Cells(lc + 1, 4).Value = Me.Cells(7, 4).Value 'Modifié
'Me.Cells(lc + 1, 6).Value = Me.Cells(7, 6).Value 'Modifié
'Me.Range(Cells(lc, 5), Cells(lc + 1, 5)).Merge 'Modifié
End Select