Before print - c'est pas compliqué

[Fernandez67]

Bonjour à tous,

J'ai un fichier ou je voudrais que SI la case B13 et occupé, la case C13 s'ajuste au contenu. Et ceci dans la plage de B13:C25.

J'ai 'pondu' rapidement cà :

Activcell.Select
ActiveSheet.Unprotect
Columns('C:C').EntireColumn.AutoFit
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveWindow.SmallScroll Down:=6
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.SmallScroll Down:=6
Range('A1:K30').Select
Range('K30').Activate
ActiveSheet.PageSetup.PrintArea = '$A$1:$K$30'
ActiveWindow.SmallScroll Down:=-27
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range('B13').Select
Private Sub Workbook_BeforePrint(Cancel As Boolean)

End Sub

Evidement, je suis pas un diable en VBA, vous l'aurez compris, j'espère quand étant au contact de votre génie cela ira mieux.

D'avance merci pour votre aide.

J'y connais rien en VBA, mais je me soigne...