'A mettre dans le code de la Feuille 1
'et non pas dans un module Standard
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Ligne&
If Not Intersect(Target, Range("B13:B23")) Is Nothing Then
If Target Like "X" Then Ligne = Target.Row
Application.EnableEvents = False
Rows(Ligne).Cut Feuil2.Rows(Ligne)
Rows(Ligne - 1).Delete Shift:=xlUp
Application.EnableEvents = True
End If
End Sub