Sub FigerPlage()
Dim lig&, col%
Application.DisplayAlerts = False 'en cas de cellules fusionnées
lig = ActiveWindow.ScrollRow - [Maplage].Row
col = ActiveWindow.ScrollColumn + 5 - [Maplage].Column 'le plus 5 à adapter au besoin
If (lig Or col) And Application.CutCopyMode = 0 Then [Maplage].Cut [Maplage].Cells(1 + lig, 1 + col)
Application.OnTime Now + 1 / 86400, "FigerPlage"
End Sub