Déplacement de valeurs dans des cellules

Donc si j'ai compris....
Dans un premier temps la cellule O8 prend la valeur renseignée en A6.
Ensuite P8 prend la valeur de O8
Suite à cela, O8 prend la valeur en A7, Q8 prend la valeur de P8, qui prend la nouvelle valeur de O8, qui va prendre la valeur en A8, et ainsi de suite, jusqu'à ce qu'il n'y ait plus de valeur renseignées dans la colonne A ?

Si tel est le cas, tu t'es emmêlé les pinceaux dans ton code. et il aurait plutôt cette allure-là :

Sub EntreePasses()
Dim j As Long
Dim TUN1(2, 6) As String
Dim m As String
For j = 0 To 4
If Range("S7") <> "" Then Cells(7, 20) = Cells(7, 19).Value
If Range("R7") <> "" Then Cells(7, 19) = Cells(7, 18).Value
If Range("Q7") <> "" Then Cells(7, 18) = Cells(7, 17).Value
If Range("P7") <> "" Then Cells(7, 17) = Cells(7, 16).Value
If Range("O7") <> "" Then Cells(7, 16) = Cells(7, 15).Value
If Range("A" & 6 + j) <> "" Then Cells(7, 15) = Cells(6 + j, 1).Value
Next j
Cells(8, 15) = Range("B5").Value
End Sub

Les corrections apportées :
- J'ai supposé que les tests signifiaient que tu vérifiais si la cellule précédente était remplie et que si tel était le cas, tu prenais sa valeur. Il faut donc modifier l'ordre de tes test, ainsi que les lignes concernées. (ici ligne 7)
- Dans ton code la cellule T7 prenait la valeur de S7, puis de R7, etc. Ce qui créait un décalage. Elle n'a besoin de prendre que la valeur en S7 à chaque tour. Idem pour chaque colonne.
- Ta colonne O va chercher ses valeurs en A6 à Ax, Tu dois donc aller regarder la ligne A6+j à chaque tour
- Ton j s'incrémentait deux fois : une fois avec j = j+1, puis avec "next j". Pour coller à ce que tu décrivais, tu auras effcectivement besoin de la ligne j = j+1, mais pas dans une boucle qui fait elle-même varier j.

c'est bon merci j'ai trouver la solution merci beaucoup pour l'aide