Tout copier sauf les bordures

Bonjour à tous ,
comment tous copier sauf les bordures avec ce code VBA ?

Private Sub Worksheet_Change(ByVal Target As Range)
If flag Then Exit Sub
flag = True
If Target.Column = 3 Or Target.Column = 8 Or Target.Column = 13 Or Target.Column = 18 Then
If Target.Value <> "" And Target.Font.Color <> 8421504 Then
For Each cell In Sheets("Numero").Range("A2:A300")
If Target.Value = cell.Value Then
cell.Copy Destination:=Target
End If
Next cell
End If
End If
flag = False
End Sub


Merci pour votre aide et bon week end