Sub Macro1()
Dim pl As Range 'déclare la variable pl (PLage)
Dim dl As Long 'déclare la variable dl (Dernière Ligne)
Dim cel As Range 'déclare la variable cel (CELlule)
Set pl = Application.Union(Range("C2"), Range("E2:G2"), Range("I2"), Range("K2:L2")) 'définit la plage pl (à adapter à ton cas)
dl = Cells(Application.Rows.Count, 10).End(xlUp).Row 'définit la dernière ligne de la colonne 10 (J)
For Each cel In pl 'boucle sur toutes les cellules cel de la plage pl
cel.AutoFill Range(cel, Cells(dl, cel.Column)) 'recopie vers le bas
Next cel 'prochaine cellule de la plage
End Sub