Imbriquer deux code Worksheet dans VBA

Bonjour j'ai deux formules Worksheet et visiblement on ne peut pas en écrire deux différentes dans une seule feuille.
J'ai vu qu'il fallait donc les imbriquer mais je vous avoue que je suis perdu .. un peu coup de main serait le bienvenu.

Merci

je vous écris mais deux codes séparemment

le premier

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo fin
Application.EnableEvents = False
If Not Application.Intersect(Target, Range("D10:D" & Rows.Count)) Is Nothing Then
If Target <> "" Then
Target.Offset(, -2).Resize(, 2) = "X"
Else
Target.Offset(, -2).Resize(, 2).ClearContents
End If
End If
fin:
Application.EnableEvents = True
End Sub


Le second

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 And Target.Column = 7 Then

Select Case Target.Value
Case "F"
Cells(Target.Row, 8) = "1"

Case Else
Cells(Target.Row, 8) = ""

End Select
End If
End Sub