Re,
Pour pouvoir vous aider correctement, il faudrait que nous soyons dans le contexte
Mais bon, il faut que nous sachions quelles valeurs ont les variables au moment du bug
Cond1 =
VarInit0 =
VarFiltre =
Nota : quand je vois cette ligne
Private Sub Rea(VarFiltre, VarInit0, NomVarRea, Cond1, Cond2, Optional Cond3 = "", Optional Cond4 = "", Optional Cond5 = "")
VarFiltre = IndexColonne(VarFiltre) 'récupère l'index de la colonne VarFiltre
En général, on n'attribue jamais une valeur à une variable qui sert de paramètre, c'est source à ennuis
A+