With Cells.Find(What:=JourSaisie, After:=Range("B7"), LookIn:=xlValues, SearchOrder:=xlByColumns, SearchDirection:=xlNext)
.Activate
.Offset(, 1) = vType
.Offset(, 2) = Format(HDébutServ, "hh:mm")
.Offset(, 3) = Format(HFinServ, "hh:mm")
.Offset(, 4) = Format(NbHTrav, "hh:mm")
.Offset(, 5) = Format(HdeJour, "hh:mm")
.Offset(, 6) = Format(HTotalNuit, "hh:mm")
.Offset(, 8) = Format(HTotalNuit, "hh:mm")
End With
With Cells.Find(What:=JourSaisie & "S", After:=Range("B7"), LookIn:=xlValues, SearchOrder:=xlByColumns, SearchDirection:=xlNext)
.Activate
.Offset(, 9) = Format(NbHTrav, "hh:mm")
End With