Je viens d'aller voir le doc...
(après la 'bataille'...)
Bon, Michel qui m'avait débloqué un jour est bien un chef !
Je suis d'accord, j'aurais fait un truc finalisé dans le style...
Un petit soucis tout de même Michel :
Ton astuce (très joli, d'ailleurs, je ne connaissais pas) :
Lig = Sheets("Commande").Range("A65536").End(xlUp).Row + 1
OK, (je m'en servirai lolll) mais dans ce cas précis, je ne sais pas si elle ne risque pas de gêner Daniel s'il compte ajouter d'autres données sous le tableau désignation/Observations ??? Daniel ?
(Cela explique mes formules beaucoup moins belles que les tiennes :
ActiveWorkbook.Sheets("Commande").Range("A" & 13 + j).Value = ""
ActiveWorkbook.Sheets("Commande").Range("F" & 13 + j).Value = ""
ActiveWorkbook.Sheets("Commande").Range("G" & 13 + j).Value = ""
(Comme ici pour l'effacement)
Merci de me tenir au courant si vous trouvez une réponse plus esthétique à ce petit soucis...
POLO
PS : Michel, as-tu la réponse à la question que je posais plus haut dans le post ?
à savoir : 1) Comment faire pour utiliser la fonction IsNothing ? Excel me répond qu'il ne la connait pas...