Deux macros dans une seule

Sub EN_COURS()
 Sheets("PROJET").Select ' sélectionne la feuille "PROJET"
 Set Ma_Plage = Worksheets("PROJET").Range("A5:U230") 'Compteur: A5 1° ligne U230 derniere ligne
 nbr = nbr + 5 + Application.WorksheetFunction.CountA(Ma_Plage) ' rajout des 5° lignes commence l'opération à la 8 émé ligne ?

 
 For isheet = 1 To 2
 
  If isheet = 1 Then
     sheetRef = "EN COURS"
  Else
     sheetRef = "ABANDON"
  End If
 For i = 5 To nbr 'De 5° à 230° ligne
    If Cells(i, 23) = 100 Then ' Controle de la cellule colonne w Si= à 100 je continue
       'Range("A" & i & ":S" & i).Copy ' copy la ligne des colonnes A à S
       Range("A" & i & ":S" & i).Copy Destination:=Sheets(sheetRef).Range("A230").End(xlUp)(2) ' à moins qu'il n'y est des formules ou du formatage indésirable, cette méthode peut faire aussi
       'Sheets("EN COURS").Select ' sélectionne la feuille "EN COURS"
       'Range("A230").End(xlUp)(2).PasteSpecial Paste:=xlPasteValues ' Va à la cellule A230 puis remonte à la dernire cellule vide - A
       'pour commencer à la deuxieme colonne
       Application.CutCopyMode = False ' copie que les valeurs
       'Sheets("PROJET").Select ' sélectionne la feuille "PROJET"
       'Range("A" & i & ":S" & i).Select 'Sélectionne la ligne des colonnes A à s
       'Selection.ClearContents ' efface
       Range("A" & i & ":S" & i).ClearContents
    End If
 Next i
 Next isheet
 End Sub

Sub EN_COURS()
 Sheets("PROJET").Select ' sélectionne la feuille "PROJET"
 Set Ma_Plage = Worksheets("PROJET").Range("A5:U230") 'Compteur: A5 1° ligne U230 derniere ligne
 nbr = nbr + 5 + Application.WorksheetFunction.CountA(Ma_Plage) ' rajout des 5° lignes commence l'opération à la 8 émé ligne ?

For i = 5 To nbr 'De 5° à 230° ligne
    If Cells(i, 23) = 100 Then ' Controle de la cellule colonne w Si= à 100 je continue
        Range("A" & i & ":S" & i).Copy ' copy la ligne des colonnes A à S
        Sheets("EN COURS").Select ' sélectionne la feuille "EN COURS"
        Range("A230").End(xlUp)(2).PasteSpecial Paste:=xlPasteValues ' Va à la cellule A230 puis remonte à la dernire cellule vide - A
        'pour commencer à la deuxieme colonne
        Application.CutCopyMode = False ' copie que les valeurs
        Sheets("PROJET").Select ' sélectionne la feuille "PROJET"
        Range("A" & i & ":S" & i).Select 'Sélectionne la ligne des colonnes A à s
        Selection.ClearContents ' efface
    End If
Next

For i = 5 To nbr 'De 5° à 230° ligne
     If Cells(i, 22) = 50 Then ' Controle de la cellule colonne V Si= à 50 je continue
        Range("A" & i & ":S" & i).Copy ' copy la ligne des colonnes A à S
        Sheets("ABANDON").Select ' sélectionne la feuille "EN COURS"
        Range("A230").End(xlUp)(2).PasteSpecial Paste:=xlPasteValues ' Va à la cellule A230 puis remonte à la dernire cellule vide - A
        'pour commencer à la deuxieme colonne
        Application.CutCopyMode = False ' copie que les valeurs
        Sheets("PROJET").Select ' sélectionne la feuille "PROJET"
        Range("A" & i & ":S" & i).Select 'Sélectionne la ligne des colonnes A à s
        Selection.ClearContents ' efface
     End If
 Next
 End Sub

        Sheets("PROJET").Select ' sélectionne la feuille "PROJET"
        Range("A" & i & ":S" & i).Select 'Sélectionne la ligne des colonnes A à s
        Selection.ClearContents ' efface

Sheets("PROJET").Range("A" & i & ":S" & i).ClearContents ' efface