Bonjour le Forum,
Bonjour Jocelyne, Dan,
ton code est en erreur a cause je crois de cette ligne :
ligne = Range('A2').End(xlDown).Row + 1
a remplacer par:
ligne = Range('A65000').End(xlup).Row + 1
par contre attention tes adresse a renseigner dans ta feuile menu ne sont pas bonne
par exemple le nom s'écrit dans la colonne position dans la famille
Cells(ligne, 1) = Nloc.Value
a remplacer par
Cells(ligne, 2) = Nloc.Value
voila espérant t'avoir aidé
Jocelyn
Message édité par: Jocelyn, à: 28/11/2005 14:11