Erreur sur macro de validation

Bonjour à tous !

J'ai une feuille avec de nombreux champs de liste déroulante (situés dans ma feuille "BPU") tous reliés à la même liste qui elle est située dans une autre feuille ("BPU - Tampon"). A savoir que la validation doit être exécutée après une autre macro car cette précédente casse les références de cette validation comme ça :

=DECALER('BPU - Tampon'!#REF!;;;NBVAL('BPU - Tampon'!#REF!))

Voilà mon code qui se décompose en 2 parties qui consiste à "réparer" ma procédure de validation et l'etendre aux autres cellules :

Sub Liste_Validation()

' Sert a recuperer les données sur les listes deroulantes
With Sheets("BPU")
     With Range("A15").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:= _
        "=DECALER('BPU - Tampon'!$B$2;;;NBVAL('BPU - Tampon'!$B$2:$B$1000))"
    End With
End With

    Selection.AutoFill Destination:=Range("A15:A61"), Type:=xlFillDefault
    Range("A15:A61").Select

End Sub

Lorsque je lance la macro j'ai une erreur 1004 "Erreur d’exécution".

Je suis vraiment bloqué et je n'arrive pas a cerner le problème.

Merci d'avance pour vos réponses !

Bonjour Pixel77500

A+

Bonjour Pixel77500

A+

?

Rechercher des sujets similaires à "erreur macro validation"