Tu peux utiliser la fonction loop
Tant que la cellule de la colonne K est pleine, l'operation se répétera.
Range("C10").Select
Do Until IsEmpty(ActiveCell)
If Cells(ActiveCell.Row, "C") <> "" Then
Cells(ActiveCell.Row, "K").Select
Cells(ActiveCell.Row, "K").Value = Cells(ActiveCell.Row...