Correction écriture

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Cellule As Range
    If Target.Address <> "$M$32" Then Exit Sub
    If Target.Value > 0 And Target.Value < 205 Then
        Set Cellule = Range("AB1:AB205").Find(Target.Value, Lookat:=xlWhole)
        If Not Cellule Is Nothing Then
            Application.EnableEvents = False
            Range("D45") = Cellule.Offset(0, -1).Value
            Range("H45") = Cellule.Offset(0, 1).Value
            Range("H45").Comment.Text Text:=Cellule.Offset(0, 1).Comment.Text
            Application.EnableEvents = True
        End If
    End If
End Sub

    Cellule.Offset(0, 1).Copy
    Range("H45").PasteSpecial Paste:=xlPasteComments