Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static sel As Range
Dim a As Range, b As Range
For Each a In Target.Areas
If a.Columns.Count < Columns.Count Then
If Not sel Is Nothing And Target.Count = 1 Then
If MsgBox("Couper-insérer la plage " & sel.Address(0, 0) & " ?", 4) = 6 Then
For Each b In sel.Areas
b.Cut
Target.EntireRow.Insert
Next
End If
End If
Set sel = Nothing
Exit Sub
End If
Next
Set sel = Target 'mémorisation
End Sub