Modifier macro existante

Bonjour,

j'ai une macro qui fonctionne mais que j'ai voulus modifié mais je n'ai pas réussi,

dans cette macro il y a des consignes qui sont des lettres qui représente chacune une colonne, lettre A = colonne A et la macro copie les cellules des colonnes spécifié.

ce que j'ai tenté de faire est : à la place de mettre une lettre pour désigné une colonne je voudrais mettre un chiffre

exemple : à la place de la lettre A je mettrais le chiffre 1 pour désigné la 1ère colonnes

à la place de la lettre C je mettrais le chiffre 3 pour désigné la 3ème colonnes

ainsi de suite

si quelqu'un aurait une idée pour cela, je vous remercie d'avance

cordialement,

Bonjour bastien12:

comme ceci:

Sub aargh()
Dim res()
    t = Range("A1").CurrentRegion
    c = Range("G1").CurrentRegion
    ctrligne = 0
    ReDim res(1 To (UBound(t) - 1) * UBound(c), 1 To 2)
    For i = 2 To UBound(t)
        For j = 1 To UBound(c)
            ctrligne = ctrligne + 1
            For k = 1 To UBound(c, 2)
                col = c(j, k)
                res(ctrligne, k) = t(i, col)
            Next k
        Next j
    Next i
    Range("J2").Resize(UBound(res), 2) = res
End Sub

merci ! j'avais fait la même chose mais sans supprimer " -64 " et cela ma bloquer

bonne journée à toi