une aide pour "fusionner ces codes

Bonjour à tous
Voilà , grâce aux excelliens de ce site , j'ai pu bidouiller un petit programme.
Mais là je coince :
ce code permet lorsque un des choix est proposé d'ouvrir automatiquement la fenêtre des commentaires

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([A2:A20], Target) Is Nothing And Target.Count = 1 Then
If InStr("DIVERS HORS PAO AUTRES DEMANDE PAO ", Target) > 0 Then
If Target.Comment Is Nothing Then
Target.AddComment ' Création commentaire
Target.Comment.Shape.OLEFormat.Object.Font.Name = "Tverdana"
Target.Comment.Shape.OLEFormat.Object.Font.Size = 12
Target.Comment.Shape.OLEFormat.Object.Font.FontStyle = "Bold"
SendKeys "+{F2}"
End If
End If
End If
End Sub


puis j'ai ce second code qui lui me permet d'extraire ces commentaires et de les mettre dans une colonne précise


Sub Extrait()

For Each C In Range("A3", [A65000].End(xlUp))
C.Offset(0, 32) = C.Comment.Text
Next C
End Sub

(merci encore à jacques Boisgontier)

Ce que je souhaiterai c'est de compiler les deux c'est à dire faire le 1er code puis le second dans la même foulée.

A vous de jouer😎

merci