Bonjour et merci ça fonctionne à merveille.
Quand je veux l'appliquer dans un autre fichier ça ne marche pas .
Il bug sur le code :
If cell.Value <> 0 Then
J'ai en début du useform les déclarations suivantes :
Option Explicit
'Sauf déclarations explicites les variables sont typées par leur initiale
DefBool Y 'Variables Booléennes
Dim cell, YCAS, iROW%, iRet%, Msg$
Est ce là que je fais une erreur ?