Tout copier sauf les bordures de cellules

[isa44]

Bonjour à tous,
Voici un code dont je voudrais qu'il ne recopie pas les bordure de cellules.

Private Sub Macro8()
Application.ScreenUpdating = False

Dim Source As Range, Cible As Range, Cel As Range, CelSource As Range

Set Source = Sheets("ARC").Columns(3)
Set Cible = Sheets("RO").Range("C6:C26,H6:H37,M6:M41,R6:R39")

MontreToutesDonnees
For Each Cel In Cible
Set CelSource = Source.Find(Cel, , xlValues, xlWhole)
Flag = False
If Not CelSource Is Nothing Then
CelSource.Copy: Cel.PasteSpecial Paste:=xlPasteFormats
Else: Sheets("ROSE").Range("Z1").Copy: Cel.PasteSpecial Paste:=xlPasteFormats
End If
Flag = True
Next Cel
With Application
.CutCopyMode = False

End With


ActiveWindow.ScrollColumn = 1
Range("C6").Select
Application.ScreenUpdating = True
End Sub

Comment modifier celà ?

 

[Pierrot93]

Re : Tout copier sauf les bordures de cellules

Bonjour isa

remplace dans ton code :

.PasteSpecial Paste:=xlPasteFormats

par :

.PasteSpecial Paste:=xlPasteAllExceptBorders

bon après midi
@+

Edition : actif sous excel2003, avant sait pas trop

 

[isa44]

Re : Tout copier sauf les bordures de cellules

Merci pour le coup de main c'est OK