Sub Essai()
'
' Essai Macro
Rows(ActiveCell.Row).Select
Selection.Copy
Sheets("conf call effectuées").Select
Rows("7:7").Select
ActiveSheet.Paste
Sheets("conf call à plannifier").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
End Sub