Récuprer une mise en forme existante

bonjour les excellents,

voici un passage d'une macro bc plus longue:

For Col = 5 To 35
    Cells(2, Col) = Application.WorksheetFunction.Index(Sheets("SP Antennes").Range("A2:H32"), Col - 4, numf)
    Next

elle me permet de récuperela donnée d'une cellule pour la coller dans cells(2 ,Col)

est-il possible de "lire" le mise en forme appliquée a

Range(Col - 4, numf)

et de l'appliquer a

Cells(2, Col)

?

Merci d'avance

Salut Victor,

as-tu essayé ceci ?

Application.ScreenUpdating = False
For Col = 5 To 35
    Application.WorksheetFunction.Index(Sheets("SP Antennes").Range("A2:H32"), Col - 4, numf).Copy Destination:=Cells(2, Col)
Next
Application.ScreenUpdating = True

A+

Bonjour,

le code prix brut ne marchait pas, j'ai trouvé une variation sur le même principe sur un autre forum:*

    With ThisWorkbook
        .Sheets("SP Antennes").Cells(Col - 3, numf).Copy Destination:=.Sheets("Antennes").Cells(i, Col)
    End With

donc ça marche mais a 41*232 cellule c'est loooooooooooooooooooooooooooong,

il n'existe pas plus efficace?