Bonsoir, avec ceci peut-être :
Sub Bouton1_QuandClic()
Dim col As Variant, DerLig As Long
col = Range("C2").Value
DerLig = Cells(65000, col).End(xlUp).Row
Range(Cells(11, col), Cells(DerLig, col)).Value = Range(Cells(11, col), Cells(DerLig, col)).Value
End Sub