Ne copier que certaine valeur

Bonjour à tous,
Voici un code pour un de mes fichiers. Celui-ci a pour but d'archiver des lignes selon certaine conditions. Mais voila pour la ligne suivante :
Range("A" & i & ":U" & i).Copy ' copy la ligne des colonnes A à U
Je ne veux pas copier les colonnes de "A" à "U" mais de "A" à "J" puis de "L" à "Q" et enfin de "S" à "U" (en fait je ne veux pas copier les colonnes K et R.

Comment faire ?

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, 22) = 100 Then ' Controle de la cellule colonne V Si= à 100 je continue
Range("A" & i & ":U" & i).Copy ' copy la ligne des colonnes A à U
Sheets("EN COURS").Select ' sélectionne la feuille "EN COURS"
Range("A230").End(xlUp)(2).PasteSpecial Paste:=xlPasteValues ' Va à la cellule A65536 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 & ":J" & i).Select 'Sélectionne la ligne des colonnes A à J
Selection.ClearContents ' efface
Range("L" & i & ":Q" & i).Select 'Sélectionne la ligne des colonnes L à Q
Selection.ClearContents ' efface
Range("S" & i & ":U" & i).Select 'Sélectionne la ligne des colonnes S à U
Selection.ClearContents ' efface

Sheets("PROJET").Select ' sélectionne la feuille "PROJET" et trie par date la collonne F
Range("F5:F230").Select
Range("A5:U230").Sort Key1:=Range("F5"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("F5").Select




End If
Next
End Sub


Merci et bonne journée à tous

Phil