Bonjour Kickback et le forum,
Quelques petites modifs et cela devrait enlever le bug.
Sub Transfert()
Dim Maplage As Range, tabTemp As Variant
Dim derlgn As Integer, L As Integer, C As Byte, Derlgn2 As Integer
With Sheets('Saisie du jour')
derlgn = .Range('B65536').End(xlUp).Row + 1
Set Maplage = .Range('A2
' & derlgn)
tabTemp = .Range(.Cells(2, 1), .Cells(derlgn, 4))
End With
With Sheets('Historique visites')
Derlgn2 = .Range('A65536').End(xlUp).Row
For L = 1 To UBound(tabTemp, 1)
For C = 1 To UBound(tabTemp, 2)
If C >= 3 And C <= 4 Then
.Cells(L + Derlgn2, C) = Format(tabTemp(L, C), 'hh:mms')
Else
.Cells(L + Derlgn2, C) = tabTemp(L, C)
End If
Next
Next
End With
Maplage.ClearContents
End Sub
Cordialement
Bernard