Copy paste from a range to another range

Bonjour à tous,

J'essaie d'écrire un bout de VBA pour faire les tasks suivants:

-Si la cellule (n,C) contient le string "U0" avec n=numéro de ligne, C=colonne

-Copy-paste la valeur entre cells (n,B) et cells (n,L)

-paste dans la range entre cells (n-1, H) jusqu'au cells (n-1, R)

Voici mon bout de code. Quelqu'un puisse m'aider à le corriger svp? Je vous remercie bien.

Sub copy_line()
Dim lineNumber As Integer
    lineNumber = 3
Dim lastRow As Long
     lastRow = Cells(Rows.Count, 1).End(xlUp).Row
Dim rngCopyStart As Range, rngCopyEnd As Range, rngPasteStart As Range, rngPasteEnd As Range
    'Erreur commence ici: Range échoué'
        rngCopyStart = Range("B" & lineNumber) 
        rngCopyEnd = Range("L" & lineNumber)
        rngPasteStart = Range("H" & lineNumber)
        rngPasteEnd = Range("R" & lineNumber)
Do While lineNumber <= lastRow
Loop

    If (Not IsNull(InStr(Range("C"&lineNumber).Value, "U0"))) Then
        Range(rngCopyStart, rngCopyEnd).Copy
        Range(rngPasteStart, rgnPasteEnd).PasteSpecial Paste:=xlPasteValues
    End If
    lineNumber = lineNumber + 1

End Sub

Bonjour à tous!

Fanny11, voici ton fichier en retour ne comprenant pas trop ce que tu voulais j'ai fait les 2 macros tu auras le choix...

Bonne journée!