Erreur lors d'une copie de cellule (Erreur 5)

Bonjour,

Je ne suis pas un spécialiste en la matière, mais je pensais élaborer mon code correctement.

Pourtant, j'ai un problème avec les lignes contenant .copy, avec le message d'erreur 'Argument ou appel de procédure incorrecte'

Je me perds dans les tutos et le forum, sans trouver de solution. Pouvez-vous m'aider SVP ?

De manière simple, je voudrais copier la valeur d'une cellule, dont la ligne définie et la colonne est identique à la cellule active. La valeur copiée doit être collée dans la cellule active. La cellule 'source' dépend de la position de la cellule active... Est-ce clair ?

Voici le code :

Sub Macro1()
    Dim Plage As Range
    Dim Ref60 As Range
    Dim Ref61 As Range

    Set Ref60 = Cells(60, ActiveCell.Column)
    Set Ref61 = Cells(61, ActiveCell.Column)
    Set Plage = Range("G8:OY11")

    If Application.Intersect(ActiveCell, Plage) Is Nothing Then
        Cells(Ref61).Copy
        Cells(Target).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Else
        Cells(Ref60).Copy
        Cells(Target).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    End If
End Sub

D'avance, merci !

Stouf

Si j'ai bien compris, tu cherches ça :

ActiveCell = Cells(60, ActiveCell.Column)

Place ton curseur où tu as envie et envoie la macro

Bonjour Stouf,

Bonjour Game Over,

Tant qu'on y est, autant aller jusqu'au bout pour que tu vois où le bât blesse

Sub Macro1()
Dim Plage As Range
Dim Ref60 As Range
Dim Ref61 As Range
    Set Ref60 = Cells(60, ActiveCell.Column)
    Set Ref61 = Cells(61, ActiveCell.Column)
    Set Plage = Range("G8:OY11")
    If Application.Intersect(ActiveCell, Plage) Is Nothing Then
        Ref61.Copy
        ActiveCell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Else
        Ref60.Copy
        ActiveCell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    End If
End Sub

A+

Hello Game Over, Hello Frangy,

Merci pour vos réponses !

La proposition de Game Over m'aurait convenu, si je je n'avais pas de plage spécifique à contrôler.

Par contre, la solution de Frangy est parfaite ! Je ne comprenais pas mon erreur et j'y vois un peu plus clair maintenant...

Merci encore à tous les deux pour vos réponses rapides.