ma macro n'était pas très optimal, je crois qu'on ne peu pas utiliser un nombre ilimité de OR dans un test logique. nouvelle version avec un select case
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Select Case Target.Column
Case 6 To 12
Target = TimeSerial(Left(Target, Len(Target) - 2), Right(Target, 2), 0)
End Select
Application.EnableEvents = True
End Sub
tu peux utiliser case 1,2,3,5 ou 1 to 5 ou <=5
voila ça devrait être mieux