Dim ligne As Byte
Dim colonne As Byte
Dim Compteur As Integer, Fin_Liste As Integer
ligne = 11
colonne = 1
Sheets('feuil1').Select
Fin_Liste = Sheets('feuil1').Range('a65535').End(xlUp).Row
' De facon globale il vaut mieux partir de la fin pour remonter
' Et teouver la première ligne non vide
For Compteur = 1 To Fin_Liste
Sheets('feuil2').Select
If ligne = 43 Then
ligne = 11
colonne = 6
End If
j = Sheets('feuil1').Cells(Compteur).Value
Sheets('feuil2').Cells(ligne, colonne) = j
ligne = ligne + 1
Next Compteur
End Sub