merci beaucoup j'ai reussi à la faire par cette formule :
Sheets("Rail Detail").SelectCells.Find("nom column", , xlValues, xlWhole).EntireColumn.SpecialCells(xlCellTypeConstants).Offset(1).SpecialCells(xlCellTypeConstants).Select
Selection.NumberFormat = "000000000"