Collage sans altérer le format des cellules cibles

Bonjour à tou(te)s

Je désire réaliser un copié/collé, d'une feuille à une autre, des valeurs d'une colonne source sans altérer le format des cellules cibles en évitant les instructions Select comme beaucoup le préconise sur ce forum.

On conseille donc plutôt ce type de commande en une ligne: Worksheets("Source").Range("D6:D30").Copy Worksheets("Cible").Range("F10")

Mais cette simple commande colle les valeurs ET le format

Voyez-vous comment compléter cette formule pour ne copier QUE la valeur sans altérer le format ou une éventuelle MFC qui se trouverait dans ces cellules cibles ?

Merci à vous.

Cordialement

bonjour

essayer ca :

Sub Copie_Simplifiee()
Dim ws_s As Worksheet

Set ws_s = Sheets("Cible")

   With Worksheets("Source")
.Range(.Cells(6, 4), .Cells(30, 4)).Copy
'cells  vous permetre de decaler ou etendre la plage copier ou coller  plusieur fois
'decalage pour etendre la plage copier modifier l endroit de collage plusieur fois
ws_s.Cells(10, 6).PasteSpecial Paste:=xlPasteValues, _
      Operation:=xlNone, SkipBlanks:=False, _
      Transpose:=False
      Range("H26").Select
End With

End Sub

Merci Amir,

Ayant aussi continué mes recherches, voici finalement la solution optimisée qui me conviendrait le mieux et que je vous propose:

Worksheets("Cible").Range("F10:F34").Value = Worksheets("Source").Range("D6:D30").Value

Merci encore.

@++