Private Sub descente_Click()
Dim T(), NoLigne As Long
If Not Intersect(ActiveCell, Range("19:100")) Is Nothing Then
NoLigne = ActiveCell.Row
If NoLigne = 100 Then Exit Sub
T = Rows(NoLigne + 1).Cells.Value
Rows(NoLigne + 1).Value = Rows(NoLigne).Value
Rows(NoLigne) = T
ActiveCell.Offset(1).Select
End If
End Sub
Private Sub remonter_Click()
Dim T(), NoLigne As Long
If Not Intersect(ActiveCell, Range("19:100")) Is Nothing Then
NoLigne = ActiveCell.Row
If ActiveCell.Row = 19 Then Exit Sub
T = Rows(NoLigne - 1).Cells.Value
Rows(NoLigne - 1).Value = Rows(NoLigne).Value
Rows(NoLigne) = T
ActiveCell.Offset(-1).Select
End If
End Sub