Cells dans une macro

Bonjour à tous, et bon week-end,

Mon code, dans le fichier ci-joint, affecte le contenu de la cellule N7, une ligne vers le bas et une colonne vers la droite, à la fin d'une liste (B7:B11).

Je pense qu'il peut être simplifié. Aussi, pouvez m'indiquer un code plus simple ?

Avec mes remerciements,

Cordialement,

Bernard

Bonjour

A voir

Option Explicit

Sub bouclewhile()
  Range("C1:M65536").ClearContents
  Range("N7").Copy Range("B65536").End(xlUp).Offset(1, 1)
End Sub

Bonjour Bainzai64,

Mon intuition était bonne. Deux lignes au lieu de 11, et le code fonctionne à merveille.

Félicitations.

Cordialement,

Bernard