Sub copier_voka()
'
' copier_voka Macro
' Copier données de la voka vers modèle pdf
'
' Touche de raccourci du clavier: Ctrl+Maj+Y
'
Dim DernLigne As Variant
DernLigne = Range("A" & Rows.Count).End(xlUp).Row
Dim Cpt As Variant
Cpt = Application.CountA(Range("A:A"))
Worksheets("Tabelle1").Columns("A:AA").Select
Selection.EntireColumn.Hidden = False
With Worksheets("Tabelle1")
Worksheets("+ total").Cells(7, 1).EntireRow.Resize(rowsize:=Cpt).Insert Shift:=xlDown
Range("D9:D" & DernLigne).Select
Application.CutCopyMode = False
Selection.Copy
Range("D9:D" & DernLigne).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F9:F" & DernLigne).Select
Application.CutCopyMode = False
Selection.Copy
Range("F9:F" & DernLigne).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B9:B" & DernLigne).Select
Selection.Copy
Sheets("+ total").Select
Range("B6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Tabelle1").Select
Range("C9:C" & DernLigne).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("+ total").Select
Range("C6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("D9:D" & DernLigne).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("+ total").Select
Range("D6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Tabelle1").Select
Range("E9:E" & DernLigne).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("+ total").Select
Worksheets("+ total").Range("E6").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Tabelle1").Select
Range("F9:F" & DernLigne).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("+ total").Select
Range("F6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Tabelle1").Select
Range("J9:J" & DernLigne).Select
Selection.Copy
Sheets("+ total").Select
Range("G6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Tabelle1").Select
Range("M9:M" & DernLigne).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("+ total").Select
Range("H6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End With
With Worksheets("+ total")
Dim DerLi As Variant
DerLi = Range("E" & Rows.Count).End(xlUp).Row
Range("D6:D" & DerLi).Select
Selection.Copy
Range("D6:D" & DerLi).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E6:F" & DerLi).Select
With Selection.Font
.Name = "Arial"
.Size = 9
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Range("G6:G" & DerLi).Select
Selection.Font.Bold = False
Selection.Font.Bold = True
Range("H6:H" & DerLi).Select
Selection.Font.Bold = True
With Selection.Font
.Color = -65536
.TintAndShade = 0
End With
End With
Worksheets("Tabelle1").Activate
Worksheets("Tabelle1").Columns("D:D").Select
Selection.EntireColumn.Hidden = True
Worksheets("Tabelle1").Columns("F:F").Select
Selection.EntireColumn.Hidden = True
Worksheets("Tabelle1").Columns("N:P").Select
Selection.EntireColumn.Hidden = True
End Sub