Range("c84").Copy Range("O8")
'si ("O8") non vide Copy range("O9")
'si ("O9") non vide Copy range("O10")
'etc
Range("c85").Copy Range("p8")
'idem mais P9 P10 etc ...
Range("d84").Copy Range("k8")
'idem mais K9 k10 etc....
Range("d85").Copy Range("l8")
'idem mais I9 I10 etc....