Sub NOUVELLEDATA()
'
' NOUVELLEDATA Macro
'
'
Sheets("LISTE SALARIES").Select
Rows("4:4").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("B4:G4").Select
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Sheets("FORMULAIRE").Select
ActiveWindow.LargeScroll Down:=-1
Range("C11").Select
Selection.Copy
Sheets("LISTE SALARIES").Select
Range("C4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B4").Select
Sheets("FORMULAIRE").Select
Range("K11").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("LISTE SALARIES").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("FORMULAIRE").Select
Range("C14").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("LISTE SALARIES").Select
Range("D4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("FORMULAIRE").Select
ActiveWindow.SmallScroll Down:=10
Range("C17").Select
Application.CutCopyMode = False
Selection.Copy
Range("C17").Select
Sheets("LISTE SALARIES").Select
Range("F4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E11").Select
Columns("F:F").ColumnWidth = 28.43
Sheets("FORMULAIRE").Select
Range("C20").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("LISTE SALARIES").Select
Range("E4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("FORMULAIRE").Select
Range("C23").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("LISTE SALARIES").Select
Range("G4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B10").Select
Application.CutCopyMode = False
ChDir "D:\"
Sheets("FORMULAIRE").Select
Range("C11,C14,C17,C17,C20,C23,K11").Select
Range("K11").Activate
Selection.ClearContents
Range("C11").Select
End Sub
