Bonjour,
une petite macro de ce genre devrait fonctionner :
Sub Inserer_Chiffre
Dim LaCellule as object
Dim ChiffreAInserer as double
'on définit le chiffre à insérer devant chaque cellule
ChiffreAInserer=range("A1").value
'pour chaque cellule de la zone
For each LaCellule in columns("C:C") 'ou in range ("C1:C5000") par exemple
'si le début du texte n'est pas égal au chiffre à insérer
if val(left(LaCellule.text,len(ChiffreAInserer))<>ChiffreAInserer then
'alors on ajoute le chiffre devant et un espace
LaCellule.value=ChiffreAInserer & " " & LaCellule.text
endif
'cellule suivante
next LaCellule
End Sub
Voilà, j'espère que cela t'aideras !
Clément
"S'il n'y a pas de solution, c'est qu'il n'y a pas de problème." (devise Shadock)