Bonsoir
Il me semble qu'en supprimant les données de la feuille travail et en les remplacant par ceux de la feuille source ce devrait faire l'affaire.
petite macro pour cette mise à jour
Sub maj()
With Sheets("travail")
Set zone = .Range(.Cells(6, 1), .Cells(.Cells(.UsedRange.Columns(1).Rows.Count + 7, 1).End(xlUp).Row, 2))
zone.Delete
End With
With Sheets("source")
Set zone = .Range(.Cells(6, 1), .Cells(.Cells(.UsedRange.Columns(1).Rows.Count + 7, 1).End(xlUp).Row, 2))
zone.Copy Sheets("travail").Range("a6")
End With
End Sub