Code VBA pour un copier coller particulier

Bonsoir à tous,

Débutant en VBA je recherche un code qui puisse effectuer le résultat suivant:

Que les cellules B1, B9, B17, B25, B33, B41, B49, B57 d'une feuille x soient copiés respectivement en B3, C3, D3, E3, F3, G3, H3, I3 d'une feuilleY à l'exception des deux derniers caractère des cellules (qui sont un symbole monétaire et un espace).

Merci d'avance

Bonsoir,

Pourriez-vous mettre un fichier en ligne avec données non confidentielles. Ce sera plus facile d'être juste dans le code à construire

Amicalement

Dan

Ce sont les cellules B1,B9,B17,B25,B33,B41,B49,B57 (même choses en D,F,H,J,L,N,P,R,T) de la feuil12 que j'aimerais copier en B3:I3 sur d'autres feuilles.

Merci pour votre aide.

Bonjour,

j'en étais rester au 1° message!...

donc pour cela

Sub transposer_regroupe()
Dim pas As Byte, col_out As Byte, cptr_in As Byte, cible As Range
pas = 8
col_out = 2
For cptr_in = 1 To 57 Step pas
    Set cible = Sheets(1).Cells(cptr_in, 2)
    If cible <> "" And Len(cible) > 2 Then
        Sheets(2).Cells(3, col_out) = Left(cible, Len(cible) - 2)
    End If
    col_out = col_out + 1
Next
End Sub