Bonjour Bravi, bonjour le forum,
Essaie avec la macro événementielle Change ci-dessous à placer dans l'onglet correspondant :
Private Sub Worksheet_Change(ByVal Target As Range) 'au changement dans l'onglet
If Target.Column = 1 Then Exit Sub 'si le changement a lieu dans la colonne 1, sort de la procédure
'définit la valeur de la cellule : ligne de la cellule éditée colonne 1, égale à la valeur de la cellule : ligne de la cellule éditée, dernière colonne éditée de la cellule éditée
Cells(Target.Row, 1).Value = Cells(Target.Row, Application.Columns.Count).End(xlToLeft).Value
End Sub