Macro VBA celules

Bonour svp j'ai un code qui m'affecte des valeurs placer dans B5 dans un tableau mais il fonctionne que pour les 3 première colonne du tableau et apartir de la 4éme il déconne

voila le tableau en piéce jointe

le code fonctionne que pour O8,P8,Q8 les autre non je sais pas pourquoi ?

mercii

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

Sans savoir ce que fait ta procédure, en voilà au moins une écriture correcte :

Sub CalculClient()
    Dim j%, k%
    For j = 0 To 4
        For k = 0 To 5
            If Range("O7").Offset(, k) <> "" Then Cells(8, 20 - k - j) = Cells(8, 19 - k - j).Value
        Next k
    Next j
    Cells(8, 15) = Range("B5").Value
End Sub

Bonne soirée !

NB- mis à part la non qualification de Range, qu'il me paraîtrait souhaitable de qualifier par le nom de la feuille....

Bonjour malheureusement il me fait le même fonctionnement ça marche juste pour la première et la deuxiéme cellule (O8 ET P8 )et pas pour les autre a partir de Q8 il me fait n'importe quoi il se décale de deux case ensuite de 3 je sais pas pourquoi ?

voila le code j'ai rajouter le nom de la feuille a coté du range

Dans l'image 2 j'explique le principe de ce que je veux faire aidez moi svp a trouver une solution merci

Sub CalculClient()
        Dim j%, k%
        For j = 0 To 4
            For k = 0 To 5
                If Sheets("Interface").Range("O7").Offset(, k) <> "" Then Cells(8, 20 - k - j) = Cells(8, 19 - k - j).Value

            Next k
        Next j
        Cells(8, 15) = Range("B5").Value
End Sub

En Faite le principe de ce que je veux faire c'est ca je vous envoi l'image juste pour voir si il y'a des modifications a faire merci beaucoup

C'est que tu as fait une erreur quelque part... Recompte, et suis le trajet pas à pas !

Ton code écrit exclusivement sur la ligne 8. Je vois mal comment ça pourrait donner ton dessin.