Sub Essai()
Sheets("Feuil1").Select
T = 8
For i = 8 To 14
If Cells(T, i) = "" Then Exit Sub
Cells(T, i).Copy
For j = 17 To 23
Cells(j, 2).Select
If ActiveCell = "" Then
ActiveSheet.Paste
Application.CutCopyMode = False
Exit For
Else
Cells(j + 1, 2).Select
End If
Next j
If i = 14 Then
Cells(T + 1, i + 1).Select
Else
Cells(T, i + 1).Select
End If
Next i
End Sub