XL 2010 [RESOLU] Soustraction d'heure en VBA

[Ternoise]

Bonjour à tous

J'utilise une "machine à gaz" depuis des années.
Un décret vient de paraître m'obligeant à de réelle changement.
Je ne pratique plus de VBA depuis ce temps donc j'ai besoin de votre aide.

Bref..., mon problème.

J'aimerais envoyer dans .Cell(ligne,10) ceci :

.Cells(ligne, 10) = CDate(TextEffectif)- Format(TextPause, "hh:mm")

Contrairement à avant ou j'envoyais que ceci :

.Cells(ligne, 10) = CDate(TextEffectif)
.Cells(ligne, 16) = Format(TextPause, "hh:mm")

Donc envoyé sur ma feuille le Temps Effectif - le Temps de pause

Comment faire ?

Merci énormément de votre aide précieuse.
Bien cordialement

David

'…Transfert Formulaire dans BD
With Sheets("DIRECTION")
  .Rows(ligne - 1).Copy .Rows(ligne) '…pour les formats de la ligne de réception. Je copie puis...
  .Rows(ligne).ClearContents ' ... j'efface les données

  .Cells(ligne, 10) = CDate(TextEffectif)

  .Cells(ligne, 16) = Format(TextPause, "hh:mm")


  .Range("B8", .Cells(ligne, 18)).Sort .[D8], xlDescending, Header:=xlYes'…tri
  .Range("B9:R" & Sheets("DIRECTION").[C65536].End(xlUp).Row).Name = "T"' …Redéfinition la plage nommée pour actualiser
End With

 

[Ternoise]

En fait, je pense avoir trouvé !

.Cells(ligne, 10) = Format(CDate(TextEffectif) - CDate(TextPause), "hh:mm")