Mutualisation code

Bonjour,

Je souhaiterais mettre ces 2 code en 1.

Merci

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("D7:AH60")) Is Nothing Then
If Target = "" Then Target.ClearComments
If Target <> "" Then
    Target.ClearComments
    Target.AddComment
    Target.Comment.Text Text:=InputBox("Entrez votre commentaire")
   Target.Comment.Shape.TextFrame.Characters.Font.Size = 20

End If
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)

End Sub
 If Target.Column = 3 Then
    Dim Couleur As Integer, I As Integer, R As Long
    R = Target.Row
    Select Case UCase(Target)
        Case "ADJ": Couleur = 6
        Case "ADC": Couleur = 6
        Case "SCH": Couleur = 6
        Case "SGT": Couleur = 6
        Case "CCH": Couleur = 3
        Case "CAL": Couleur = 3
        Case "SAP": Couleur = 2
        Case "INF": Couleur = 16
        Case "CDT": Couleur = 16
        Case "CNE": Couleur = 16
        Case "LT": Couleur = 16
        Case Else: Couleur = 0
    End Select
    '
    For I = 1 To 3
        Cells(R, I).Interior.ColorIndex = Couleur
    Next
End If
End Sub