archivage?

salut stef et le forum
je ne visualise pas très bien ton fichier
mais peu etre qu'en copiant tout simplement ta 1ère feuille et en inserant une ligne à la
premiere place cela solutionnera ton problème?
renato

Salut Stef, Rénato et la planète excel

J'ai fouillé dans mon grenier et miracle...un fichier d'un illustre inconnu (john..) qui répond, je crois, à ta demande.

Bonne nuit les petits...et travailler bien. Syl's.

Salut, syl's renato et les autres du forum
je remercie vivement renato et syl's pour leurs aide c'est tres sympa de leur part
pour syl's : le petit truc que tu m'as envoyé c'est pil-poil ce qui me fallait!
par contre comment rentrer ds la macro car elle est verouillée et je ne pas la copiée ds un autre fichier...
si tu peux me dire comment faire merci d'avance
en tout cas sympa de m'avoir renseigné et a charge de revanche si un jour je peux depanner qqun je le ferais
tchuss stef

Salut Stef,

C'est john qui faut remercier ))

Il faut aller le chercher par Alt+F11....

Private Sub CommandButton1_Click()
Dim cpt, coller As Integer
Application.ScreenUpdating = False
Range("A1:C1").Select
Selection.Copy
cpt = 1
coller = 0
Do
If Sheets("Feuil2").Cells(cpt, 1).Value = "" Then
Sheets("Feuil2").Cells(cpt, 1).PasteSpecial
coller = 1
Else
cpt = cpt + 1
End If
Loop Until coller = 1
Sheets("Feuil1").Select
Range("A1").Select
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Bonne idée de renseigner les autres....on devrait le mettre dans la charte...pour une aide recue, deux aides à donner )))

bonne appétit mon petit....