Microsoft 365 Code VBA

Option Explicit

Sub CONVERTIR() 'Consolide_onglets
  If ActiveSheet.Name <> "État_de_Compte" Then Exit Sub
  Dim m&, n&, k&: k = 8
  m = Rows.Count: Application.ScreenUpdating = 0
  n = Cells(m, 2).End(3).Row
  If n > 7 Then
    With Range("A8:M" & n)
      .ClearContents: .Font.ColorIndex = 1
    End With
  End If
  With Worksheets("Factures")
    n = .Cells(m, 2).End(3).Row
    .Range("A2:M" & n).Copy: Cells(k, 1).PasteSpecial -4163
  End With
  k = k + n - 1
  With Worksheets("Crédits")
    n = .Cells(m, 2).End(3).Row
    .Range("A2:M" & n).Copy: Cells(k, 1).PasteSpecial -4163
    Selection.Font.ColorIndex = 3
  End With
  Application.CutCopyMode = 0: [A7].Select
End Sub

Dim m& 'm : nombre de lignes maximum

Sub SOMMAIRE()
  'ici, le code VBA de ta sub inchangé
End Sub

Private Sub Job(FX$, k As Byte, chn$)
  Dim n&
  With Worksheets(FX)
    n = .Cells(m, 2).End(3).Row
    If n > k Then .Range(chn & n).ClearContents
  End With
End Sub

Sub EFFACER() 'raccourci clavier: Ctrl+Shift+R
  m = Rows.Count: Application.ScreenUpdating = 0
  Job "Factures", 1, "A2:O": Job "Crédits", 1, "A2:O"
  Job "Sommaire", 8, "B9:E": Job "État_de_Compte", 7, "A8:M"
  [A7].Select
End Sub