j'ai trouvé tout seul comme un grand avec l'aide de forums

question 1 :

For h = 1 To 1000
        Cells(h, 1).Offset(0, 2) = Cells(h, 1)
    Next h

question 2 :

For i = 6 To 1001 Step 14
        Cells(i, 2).Offset(-5, 3) = Cells(i, 2)
    Next i
    
    For j = 7 To 1002 Step 14
        Cells(j, 2).Offset(-6, 4) = Cells(j, 2)
    Next j
    
    For k = 8 To 1003 Step 14
        Cells(k, 2).Offset(-7, 5) = Cells(k, 2)
    Next k

à bientôt