Super merci,
cela fonctionne...
par contre, je suis en apprentissage pourrais tu m'expliquer/me confirmer :
Dim Total as Double
Total = 0
cela signifie que la variable Totaux est un nombre entier, sans virgule ?
je ne comprend pas la ligne :
If IsNumeric(Ws.Cells(1, 39)) Then Total =...