Oublier l'ancien poteau, ceci est bon
Salut temps secondaire ()
Faible myWB comme cahier de travail
Faible myWS comme feuille de travail
Faible cel comme gamme
Placer le myWB = les cahiers de travail (« Name.xls »)
Placer le myWS = le myWB.Worksheets (« Sheet1 »)
Pour chaque cel dans MyWS.Range (« B2 », myWS.Cells (Rows.Count, « B »). Extrémité (xlUp))
cel. Valeur = Val (cel. Valeur)
cel.NumberFormat = « 00 \ : 00 \ : 00 \ : 00 »
cel. Valeur = cel. Texte
Prochain cel
Sous-marin d'extrémité