bonsoir cappe pierre
rajoute cette ligne dans le code
ActiveSheet.Range("A1").Value = Me.TextBox1.Value
après
ActiveSheet.Name = Me.TextBox1
et cela devrai être bon car sur le fichier joint ca fonctionne
Pascal
edit Même sans les .value cela fonctionne