Microsoft 365 Insérer ligne avec valeur automatiquement

ta méthode d'ajouter "Paul" lors de l'insertion d'une ligne n'est pas évidente ; aussi, je te propose une autre méthode : la cellule active est B4 ; saisis ton n° de commande, par exemple 3 ➯ en A4 : "Paul" ; efface le 3 que tu viens de saisir (touche Suppression) ➯ A4 est vide ; autre exemple : va en B3 ; supprime le 2 ➯ A3 est vide ; saisis 2 ➯ en A3 : "Paul" ; ça fonctionne pareil pour toute ligne en dessous de la ligne n° 2 : ça copie le Nom de la ligne précédente (à condition bien sûr qu'il y soit) ; évidemment, en B2, y'a pas de Nom à copier à partir de la ligne précédente vu que la ligne n° 1 est celle des en-têtes de colonnes.​

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
  With Target
    If .CountLarge > 1 Then Exit Sub
    If .Column <> 2 Then Exit Sub
    If .Row < 3 Then Exit Sub
    With .Offset(, -1)
      If Target <> "" Then .Value = .Offset(-1) Else .Value = ""
    End With
  End With
End Sub