Set Suchzeile = Cible.Worksheets(WS.Name).Range("A5000").End(xlUp) 'ici, tu définis Suchzeile comme la dernière cellule non vide en colonne A de la feuille ws.name dans ton classeur cible
Debug.Print Suchzeile.AddressLocal
WS.Range("A5:A35").Copy Suchzeile.Offset(1, 0) 'tu copie la zone A5:A35 une ligne en dessous de la cellule Suchzeile
WS.Range("F5:AC35").Copy Suchzeile.Offset(1, 1) 'tu copies la zone F5:C35: une ligne en dessous et une colonne à coté de SuchZeile
Application.CutCopyMode = False
With Cible.Worksheets(WS.Name) 'Dans le classeur Cible, feuille "Ws.name"
lRow = .Range("A" & .Rows.Count).End(xlUp).Offset(1).Row 'tu récupères le numéro de la première ligne vide sur la colonne A
WS.Range("A5:A35").Copy .Range("A" & lRow) 'et tu copies les infos ==> ca fait donc la meme chose que précédemment...et au meme endroit
WS.Range("F5:AC35").Copy .Range("B" & lRow)
End With