VBA erreur d'objet

Sub copiecom()    'Permet de copier une cellule dans une autre (cette macro est une sous-macro / macro intermédiaire)

    Dim Plage2 As Range, cel As String
    cel = Application.InputBox("Veuillez sélectionner la cellule à copier correspondant au commentaire initial de la ligne (colonne J). ", "Sélection de cellules", Type:=8).Address
    MsgBox ("La plage que vous avez sélectionné est : " & cel)    'indique l'adresse de la cellule sélectionnée
    Set Plage2 = Range(cel)
    Range(Plage2.Address).Copy    'copie la cellule sélectionnée dans la mémoire
    'Ici il faut mettre l'adresse de la cible
    ' c'est à dire la feuille si besoin
    ' la cellule
    'puis faire activesheet.paste

    'ex : sheets("Feuil2").select
    '     range("A5").select

    ActiveSheet.Paste    'déjà programmée dans une autre macro, la cellule plage2 est collée
    Range(Plage2.Address).Select
    Selection.EntireRow.Delete    'supprime entièrement la ligne de la cellule qui a été copiée

End Sub

Option Explicit

Dim Plage As Range
Dim Plage2 As Range

Sub Verif_Solde()
Dim I   As Long 'déclaration de la variable I comme étant un entier long

'se placer au début de la ligne à solder en sélectionnant toute la ligne
'il faut que la cellule active soit en colonne A !

Set Plage = Application.InputBox("Veuillez sélectionner la ligne que vous voulez solder. Placez vous de façon à ce que la cellule active soit à l'intersection de la ligne que vous voulez solder et de la colonne A . ", "SELECTION DE LA LIGNE", Type:=8)
'oblige la saisie d'une plage de donnée et renvoie cette plage à la variable Plage définie auparavant
MsgBox ("La plage que vous avez sélectionnée est : " & Plage.Address) 'indique l'adresse de la plage sélectionnée

ActiveCell.Offset(0, 12).Select 'sélectionne la cellule de la ligne correspondant à la colonne LN/BW/LR
' cette cellule doit être impérativement remplie
Do While ActiveCell.Value = "" ' la boucle s'exécute tant que la cellule est vide
MsgBox "La cellule doit être impérativement remplie ", vbCritical
ActiveCell = UCase(InputBox("Veuillez indiquer l'état de la commande", "LN/BW/LR", ""))
Loop

ActiveCell.Offset(0, 1).Select 'se place dans la colonne delivery
Do While ActiveCell.Value <> "Y" ' la boucle s'exécute tant que la cellule est vide
MsgBox "La cellule doit être impérativement remplie par Y ", vbCritical
ActiveCell = UCase(InputBox("Veuillez indiquer l'état de la commande.", "DELIVERY", "Y"))
Loop

ActiveCell.Offset(0, 1).Select 'se place dans la colonne date cegid

I = ActiveCell.Row 'indique que la variable I est le numéro de la ligne active
Do While ActiveCell.Value < Cells(I, 8).Value 'Si la valeur en Pi est inférieure de la valeur en Hi, avec 8 correspond au numéro de la colonne H
MsgBox "La date Cegid (colonne P) est inférieure à la date initialement prévue en colonne H. La date Cegid doit lui être impérativement supérieure ou égale.", vbCritical
ActiveCell = InputBox("Veuillez saisir de nouveau la date Cegid en colonne Q", "DATE CEGID", Cells(I, 8).Value)
Loop

ActiveCell.Offset(0, 1).Select 'se place dans la colonne montant

I = ActiveCell.Row 'indique que la variable I est le numéro de la ligne active
Do While ActiveCell.Value <> Cells(I, 7).Value 'Si la valeur en Gi est différente de la valeur en Qi, avec 7 correspond au numéro de la colonne G et 17 à la colonne Q
MsgBox "Le montant Cegid (colonne Q) est différent du montant saisi initialement (colonne G).", vbCritical
ActiveCell = InputBox("Veuillez saisir de nouveau le montant Cegid (colonne Q)", "AMOUNT", Cells(I, 7).Value)
Loop

ActiveCell.Offset(0, 1).Select 'demande SCM
If MsgBox("Le solde de la ligne s'effectue-t-il en cours du mois ? (SCM)", vbQuestion + vbYesNo) = vbYes Then
ActiveCell = "SCM"
End If

If MsgBox("Avez-vous-un commentaire à copier avec une ligne doublon ? La ligne doublon, dont le commentaire sera copié, sera ensuite supprimée", vbQuestion + vbYesNo) = vbYes Then
ActiveCell.Offset(0, -7).Select
Call Copie_Comments
End If

Range(Plage.Address).Select 'sélectionne la ligne initiale
Selection.Interior.ColorIndex = 15 'solde la ligne initiale en attribuant la couleur grise aux cellules

Calculate 'recalcule la feuille

MsgBox "La vérification du rapprochement est terminée avec succès et la ligne est soldée", vbOKOnly

End Sub
Sub Copie_Comments()  'Permet de copier le commentaire dans la bonne cellule

Set Plage2 = Application.InputBox("Veuillez sélectionner la cellule à copier correspondant au commentaire initial de la ligne (colonne J). ", "COMMENTAIRE", Type:=8)
MsgBox ("La plage que vous avez sélectionnée est : " & Plage2.Address)
Range(Plage2.Address).Copy 'copie le commentaire
ActiveSheet.Paste 'colle le commentaire dans la cellule active (adresse définie dans la macro principale)
Range(Plage2.Address).Select 'sélectionne le commentaire à supprimer
Selection.EntireRow.Delete 'supprime la ligne du commentaire en entier

End Sub