Aoué......
Très malin en effet !!!
En revanche, on perd la "réactivité" càd que quand la valeur change, le format ne suit pas, d'où risque d'erreur à la lecture de la valeur, que je ne peux pas me permettre.
Merci en tous cas.
Bonjour,
avec un peu d'imagination il suffit d'adapter l'excellent code de melch à ton besoin :
à indiquer dans le worksheet de la feuille concernée en adaptant à la colonne de ton fichier.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim myrange As Range
Dim cell As Range
Set myrange = ActiveSheet.Range("B2:B900")
For Each c In myrange
c.NumberFormat = Round(c.Value / 7, 0) & """ semaines"""
Next c
End Sub