Signification d'e phrases d'un code

Bonjour

je cherche à comprendre le code suivant et à savoir surtout si son ecriture est correcte

If Not Intersect(Range("B21:B100"), Target) Is Nothing And Target.Count = 1 Then
    With Sheets("feuil2").Range("K2").End(xlUp).Offset(1, 0)
      .Value = Target
      .NumberFormat = Target.NumberFormat
    End With
  End If 

(la plage B21:B100 se trouve en feuil1)

parce que ce dernier me pose un bug vis à vis d'une macro , sur cette ligne :

  With Sheets("feuil2").Range("K2").End(xlUp).Offset(1, 0)

merci pour vos explications apres j'essaierai de résoudre le conflit par moi meme

Bonjour

A première vue il me semble qu'il y aurait une erreur sur cette ligne

With Sheets("feuil2").Range("K2").End(xlUp).Offset(1, 0)

Pour moi cela serait

With Sheets("feuil2").Range("K" & Rows.Count).End(xlUp).Offset(1, 0)

Merci Banzai ,

c'etait pour moi une question rapide , si je devait envoyer mon fichier il faudrait que je joigne la notice de fonctionnement ,

assez longue et le bug intervient au cours d'une manip precise , et pour ne pas non plus monopoliser les intervenants sur le forum

j'ai voulu faire simple

En te remerciant infiniment pour tes réponses

Bonjour

Pas le problème de savoir si c'est une question rapide

C'est la réponse qui n'est pas facile car on ne connait pas le fonctionnement de ton programme ni ce que tu veux obtenir avec ton code

Souvent un petit fichier éviterait bien de solutions intermédiaires non conformes parce que l'on a pas toutes les cartes en mains

Voir le sujet précédent que tu as posté

https://forum.excel-pratique.com/excel/probleme-d-ouverture-d-un-classeur-t26381.html