Problème champ calculé heure

Jean-Eric a écrit :

Re,

Modifie la procédure ainsi :

With ActiveSheet
        .ListObjects.Add xlSrcRange, [B4].CurrentRegion, , xlYes
        .ListObjects(1).DisplayName = "TOTO"
        [B4].Select
    End With

A quel endroit dois-je le placer exactement?

Car il m'affiche une erreur sur cette ligne "ListObjects.Add xlSrcRange, [B4].CurrentRegion, , xlYes"

Re,

Il manque un point (un oubli...).

La bonne syntaxe est :

With ActiveSheet
        .ListObjects.Add xlSrcRange,.B4].CurrentRegion, , xlYes
        .ListObjects(1).DisplayName = "TOTO"
        [B4].Select
    End With

Bonjour,

merci beaucoup, c'est super

Bonne journée !