La méthode 'Range' a échoué

J'ai un code qui me permet de selectionner une plage de la copier sur une autre feuille est d'en récuperer le resultat. Lors ce que je l'exécute il bug au niveau de de

a = Range(ma_selection.Cells(1, 1)).Row

Merci Pour votre aide !

Sub test()

Dim ma_selection, dl As Integer, a As Integer

Call effaceF2

Set ma_selection = Application.InputBox("choissiez une cellule ou une plage", Type:=8)
a = Range(ma_selection.Cells(1, 1)).Row

With ma_selection
 .Copy Sheets("MatchJour").Range("D3")
'MsgBox a
End With

With Sheets("MatchJour")
 dl = .Range("D" & Rows.Count).End(xlUp).Row
 .Range("L3:M" & dl).Copy
 Sheets("CALENDRIER").Range("H" & a + 1).PasteSpecial Paste:=xlPasteValues
     ActiveSheet.Paste
    Application.CutCopyMode = False

End With

End Sub

Bonjour,

a = ma_selection.Cells(1, 1).Row

Cordialement.

Bonjour pagesalex,

Modifie par

a = ma_selection.Cells(1, 1).Row

En faisant comme cela, je n'ai plus l'erreur.

Cordialement,

Merci il n'y a plus l'erreur mais mon collage ne se fait pas au bon endroit je voudrais que cela ce fasse sur la meme ligne que ma sélection

C'est bon j'ai trouvé c'etait une sombre histoire de tableau d'ancien fichier merci à vous