Copier un bloc de lignes sous VBA

Bonjour,

Est-il possible de réaliser les opérations suivantes en une seule ligne ?

Range("H32").Value = Range("B" & LigneVzemax).Value
Range("I32").Value = Range("C" & LigneVzemax).Value
Range("J32").Value = Range("D" & LigneVzemax).Value
Range("K32").Value = Range("K" & LigneVzemax).Value
Range("L32").Value = Range("L" & LigneVzemax).Value
Range("M32").Value = Range("M" & LigneVzemax).Value
Range("N32").Value = Range("N" & LigneVzemax).Value
Range("O32").Value = Range("O" & LigneVzemax).Value
Range("P32").Value = Range("P" & LigneVzemax).Value