[COLOR=BLUE]Private[/COLOR] [COLOR=BLUE]Sub[/COLOR] CommandButton1_Click()
[COLOR=BLUE]Dim[/COLOR] Formule [COLOR=BLUE]As[/COLOR] [COLOR=BLUE]String[/COLOR]
[COLOR=BLUE]Dim[/COLOR] c [COLOR=BLUE]As[/COLOR] Range
Formule = [i]"=Transfers!K?"[/i]
[COLOR=BLUE]On[/COLOR] [COLOR=BLUE]Error[/COLOR] [COLOR=BLUE]Resume[/COLOR] [COLOR=BLUE]Next[/COLOR]
[COLOR=BLUE]Set[/COLOR] c = Range(Replace([C7].Formula, [i]"="[/i], [i]""[/i]))
[COLOR=BLUE]If[/COLOR] [COLOR=BLUE]Not[/COLOR] c [COLOR=BLUE]Is[/COLOR] [COLOR=BLUE]Nothing[/COLOR] [COLOR=BLUE]Then[/COLOR]
[C7].Formula = Replace(Formule, [i]"?"[/i], c.Row + 1)
ActiveSheet.PrintOut
[COLOR=BLUE]End[/COLOR] [COLOR=BLUE]If[/COLOR]
[COLOR=BLUE]End[/COLOR] [COLOR=BLUE]Sub[/COLOR]