Voila Pascal, un peu plus de renseignement par rapport a mon code:
numcell = 20 + nombrefeuille
numcellule = Format(numcell) <------permet de convertir un entier en caractère
nbi = nombrefeuille + 1<--------nombrefeuille est un entier que je passe en paramettre
nbcell = Format(nbi, "000")<-------ici, selon nbi , nbcell sera egal à 001,002,etc...
Range("CK2" + nb).Select
ActiveWorkbook.Names.Add Name:="PrixUnitaire" & nbcell, RefersToR1C1:="=R" & numcellule & "C89"