XL 2016 Remplacer Coller par coller valeurs

[Aloha]

Bonjour,
J'ai déjà expérimenté beaucoup pour motiver le code suivant:

Set Suchzeile = Cible.Worksheets(WS.Name).Range("A5000").End(xlUp)
Debug.Print Suchzeile.AddressLocal
WS.Range("A5:A35").Copy Suchzeile.Offset(1, 0)
WS.Range("F5:AC35").Copy Suchzeile.Offset(1, 1)
Application.CutCopyMode = False
          
With Cible.Worksheets(WS.Name)
    lRow = .Range("A" & .Rows.Count).End(xlUp).Offset(1).Row
    WS.Range("A5:A35").Copy .Range("A" & lRow)
    WS.Range("F5:AC35").Copy .Range("B" & lRow)
End With

à coller les valeurs et surtout pas le formatage. Avec ce code je dois reformater les feuilles cible par après.

D'ailleurs, vu ma modeste maîtrise de VBA, je ne comprends pas ce que ce bout de code

WS.Range("A5:A35").Copy Suchzeile.Offset(1, 0)
WS.Range("F5:AC35").Copy Suchzeile.Offset(1, 1)

fait exactement par rapport à ce bout de code:

WS.Range("A5:A35").Copy .Range("A" & lRow)
WS.Range("F5:AC35").Copy .Range("B" & lRow)

.

Bonne journée
Aloha

 

[Aloha]

Bonjour,
J'ai réussi à démarrer Excel en le démarrant dans le mode sécurisé (avec CTRL). Depuius il n'a plus planqué.
Et depuis que j'ai décoché l'add-in, qui n'est pas nécessaire (je viens de l'apprendre) pour ma version, EOMONTH fonctionne aussi, ainsi que NETWORKDAYS.
Malheureusement, VBA continue à sauter dans d'autres routines, même avec

application.enableevents=false

!
Un problème résolu; le prochain doit m'attendre au prochain coin de rue!
Bonne journée
Aloha