Valeur d'une cellule vers une dans autre feuille avec itérat

Bonjour,

je débute en VBA et j'ai écrit un algorithme que je trouve un peu chaud à traduire. Le voici:

Je fixe une ligne dans une feuille (disons ligne 1 feuil1), je la parcours à partir de la première cellule

Tant que A1 <> Null,

copier la valeur de A1,

Aller dans feuil 2,

coller valeur de A1 dans A1,

revenir à la feuil 1

se placer dans B1,

fin tant que

J'ai essayé d'écrire un code mais sans succès

Voici un code un peu plus frais mais toujours aussi inefficace

Sub courbe_de_taux()
'
' courbe_de_taux Macro
'    

Dim Col As Integer

 Col = 2
 While Cells(42, Col).Value <> 0
 ''Ici test si la valeur de la cellule de la ligne 1 est non nulle''
 Cells(42, Col).Select
 Selection.Copy
 Sheets("Bootstrapping ").Select
 Range("A1").Select
 ActiveCell.End(xlToLeft).Select
 ActiveCell.Offset(0, 1).Select
 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 Sheets("Feuil1").Select
 Col = Col + 1
 Wend
End Sub

Bonjour Aange, bonjour le forum,

Pas vraiment compris ce que tu voulais...

Si tu veux copier une ligne dans une autre en supprimant les cellules vides, essaie comme ça :

Sub courbe_de_taux()
Dim O1 As Worksheet 'déclare la variable O1 (Onglet 1)
Dim O2 As Worksheet 'déclare la variable O2 (Onglet 2)
Dim L As Variant 'déclare la variable L (Ligne)
Dim DEST As Range 'déclare la variable DEST (cellue de DESTination)

Set O1 = Sheets("Feuil1") 'définit l'onglet O1 (à adapter)
Set O2 = Sheets("Bootstrapping ") 'définit l'onglet O2
deb: 'étiquette
L = Application.InputBox("Quelle ligne ?", "LIGNE", Type:=1) 'boîte d'entrée pour définir la ligne concernée
If L = False Then Exit Sub 'si bouton "Annuler", sort de la procédure
'si valeur non valide, message et retour via l'étiquette "deb"
If L < 1 Or L > Application.Rows.Count Then MsgBox "Valeur non valide !": GoTo deb
Set DEST =O2.Cells(L, 1) 'définit la cellue de destination dest
'copie les cellules éditées de la ligne L et les colle dans dest
O1.Rows(L).SpecialCells(xlCellTypeConstants).Copy DEST
End Sub

Merci beaucoup pour ton aide, j'essaierai ton code et je te donnerai mon retour demain en matinée. Je n'ai plus accès à mes documents en ce moment

J'avais trouvé déjà un autre moyen d'y arriver mais ton code à vraiment l'air plus pratique. Merci encore pour ton aide. Bonne journée.