Aide sur Fonction Excel...svp

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Err_Change

If Target.Interior.ColorIndex <> 6 Or Target.Cells.Count > 1 Then GoTo Sort_Change
Application.EnableEvents = False
Target = Target * [A2]

Sort_Change:
Application.EnableEvents = True
Exit Sub
Err_Change:
MsgBox Err.Description, , "Erreur Excel n°" & Err.Number
Resume Sort_Change
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("B2:B1000")) Is Nothing And Target.Cells.Count = 1 Then
        Target.Formula = "=A" & Target.Row & "*1"
        Application.SendKeys ("{F2}")
        Application.SendKeys ("{BS}")
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [B2:B10]) Is Nothing Or Target.Count > 1 Then Exit Sub
If Target.Offset(, 1) <> "" Then Exit Sub 'si le calcul a déjà été confirmé
Dim mes As String
mes = "Confirmez-vous le calcul " & Range("A" & Target.Row) & "*" & Range("G" & Target.Row) & " ?"
If MsgBox(mes, 4) = 7 Then Exit Sub
Target.Offset(, 1) = "x"
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Err_Change

If Target.Address(0, 0) <> "B2" Then GoTo Sort_Change
Application.EnableEvents = False
Target = Target * [A2]

Sort_Change:
Application.EnableEvents = True
Exit Sub
Err_Change:
MsgBox Err.Description, , "Erreur Excel n°" & Err.Number
Resume Sort_Change
End Sub