AIDE sur macro

Sub Collage Spécial()
On Error GoTo Err:
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Exit Sub
Err:
    MsgBox "Rien à copier", vbCritical
End Sub

Sub ReporterValeurs()
    Dim FeuilBase As String, FeuilDest As String, PlageBase As Range, _
    ColDest As Integer, PlageDest As Range, LigneDest As Long
    
    'Nom de la feuille où se trouve les données à copier
    FeuilBase = "Feuil1"    '(nom à changer)
    
    'cellules où se trouve les valeurs à copier
    Set PlageBase = Sheets(FeuilBase).Range("G3:N3")
    
    'Nom de la feuille qui va recevoir les valeurs
    FeuilDest = "Control pannel"
    'numéro de la 1ère Colonne dans laquelle on met les valeurs copiées
    ColDest = 2  '(=colonne B)
    
    
    'détermine la première cellule vide dans la feuille de destination
    If Sheets(FeuilDest).Cells(2, ColDest).Value = "" Then
        LigneDest = IIf(Sheets(FeuilDest).Cells(1, ColDest).Value = "", 1, 2)
    Else
        LigneDest = Sheets(FeuilDest).Cells("1", ColDest).End(xlDown).Row + 1
    End If
    
    'définit les cellules de destination
    Set PlageDest = Sheets(FeuilDest).Range(Cells(LigneDest, ColDest), Cells(LigneDest, ColDest + 7))
    
    PlageDest.Value = PlageBase.Value
    
    
End Sub