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