Sub Jour_Normal()
'
' Jour_Normal Macro
' Macro recorded 23/09/2010 '
'
Application.Run "'Projet New Facture.xls'!Jour_Complet_1"
Rows("9:14").Select
Application.CutCopyMode = False
Selection.ClearContents
Selection.EntireRow.Hidden = True
Rows("32:48").Select
Selection.ClearContents
Selection.EntireRow.Hidden = True
Rows("49:49").Select
Selection.EntireRow.Hidden = True
Rows("60:69").Select
Selection.ClearContents
Selection.EntireRow.Hidden = True
Rows("72:73").Select
Selection.ClearContents
Selection.EntireRow.Hidden = True
Rows("76:77").Select
Selection.ClearContents
Selection.EntireRow.Hidden = True
Rows("82:85").Select
Selection.ClearContents
Selection.EntireRow.Hidden = True
Rows("86:105").Select
Selection.ClearContents
Selection.EntireRow.Hidden = True
Rows("110:133").Select
Selection.ClearContents
Selection.EntireRow.Hidden = True
Rows("140:145").Select
Selection.ClearContents
Selection.EntireRow.Hidden = True
Rows("149:151").Select
Selection.ClearContents
Selection.EntireRow.Hidden = True
Rows("152:171").Select
Selection.ClearContents
Selection.EntireRow.Hidden = True
Rows("176:199").Select
Selection.ClearContents
Selection.EntireRow.Hidden = True
Rows("202:203").Select
Selection.ClearContents
Selection.EntireRow.Hidden = True
Rows("208:211").Select
Selection.EntireRow.Hidden = True
Rows("208:211").Select
Selection.ClearContents
Selection.EntireRow.Hidden = True
Rows("215:217").Select
Selection.ClearContents
Selection.EntireRow.Hidden = True
Rows("221:223").Select
Selection.ClearContents
Selection.EntireRow.Hidden = True
Rows("226:239").Select
Selection.ClearContents
Selection.EntireRow.Hidden = True
Rows("248:255").Select
Selection.ClearContents
Selection.EntireRow.Hidden = True
Rows("256:256").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Range("B263").Select
End Sub