[XL-2016] Récupérer valeur cellule

Bonsoir,

Je vous expose mon petit problème :

Je dispose dans une colonne A de différentes dates de la forme "13/05/2016" par exemple.
En B, donc à côté de cette date, je dispose d'une heure de la forme "15:20:59" par exemple (heures:minutes:secondes)

Je cherche, lors du clic sur un bouton de commande, à écrire en B la valeur de A suivi de "-" suivi de la valeur de B, et ce sur toutes les lignes.

Voici mon petit code :
Code:

1 2 3 4 5 6 7 Dim b As Integer b = Workbooks("ECOAIR.xlsm").Sheets("Données").Range("A1048576").End(xlUp).Row Dim cell As Range For Each cell In Workbooks("ECOAIR.xlsm").Sheets("Données").Range("B2:B" & b) cell.Value = cell.Offset(0, -1) & " - " & cell.Value Next
Je n'obtiens pas ce que je veux: j'obtiens en B des valeurs de type "13/05/2016 - 0,254156" par exemple... Je ne comprends pas pourquoi il m'affiche un nombre décimal au lieu de mon heure. Quelqu'un aurait-il une solution ?

Merci d'avance

Greg