Private Sub CommandButton1_Click()

Function Soumettre()

Worksheets("contrôle sécurité en piste - test") As String
Worksheets("Suivi des contrôles en piste vpp - v05 10 2015 new") As String

Worksheets("contrôle sécurité en piste - test") = "contrôle sécurité en piste - test.xlsm"
Worksheets("Suivi des contrôles en piste vpp - v05 10 2015 new") = "Suivi des contrôles en piste vpp - v05 10 2015 new.xlsm"

i = 10

Application.ScreenUpdating = False

Do While Sheets("Feuil3").Range("A" & i).Value <> ""
    i = i + 1
Loop
    Worksheets("contrôle sécurité en piste - test").Activate
    Sheets("contôle sep").Select
    Range("E6").Select
    Selection.Copy
    Worksheets("Suivi des contrôles en piste vpp - v05 10 2015 new").Activate
    Sheets("Suivi 2").Select
    Range("B" & i).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
          
    Worksheets("contrôle sécurité en piste - test").Activate
    Sheets("contôle sep").Select
    Range("E7").Select
    Selection.Copy
    Worksheets("Suivi des contrôles en piste vpp - v05 10 2015 new").Activate
    Sheets("Suivi 2").Select
    Range("E" & i).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    'Code arrivée départ transit'
    'Sheets("contôle sep").Select'
    'Range("E7").Select'
    'Selection.Copy'
    'Workbooks("Suivi des contrôles en piste vpp - v05 10 2015 new").Select'
    'Sheets("Suivi 2").Select'
    'Range("E" & i).Select'
    'Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _'
        ':=False, Transpose:=False'
        
    Worksheets("contrôle sécurité en piste - test").Activate
    Sheets("contôle sep").Select
    Range("J6").Select
    Selection.Copy
    Worksheets("Suivi des contrôles en piste vpp - v05 10 2015 new").Activate
    Sheets("Suivi 2").Select
    Range("H" & i).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    Worksheets("contrôle sécurité en piste - test").Activate
    Sheets("contôle sep").Select
    Range("H8").Select
    Selection.Copy
    Worksheets("Suivi des contrôles en piste vpp - v05 10 2015 new").Activate
    Sheets("Suivi 2").Select
    Range("I" & i).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    Worksheets("contrôle sécurité en piste - test").Activate
    Sheets("contôle sep").Select
    Range("K20").Select
    Selection.Copy
    Worksheets("Suivi des contrôles en piste vpp - v05 10 2015 new").Activate
    Sheets("Suivi 2").Select
    Range("J" & i).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    Worksheets("contrôle sécurité en piste - test").Activate
    Sheets("contôle sep").Select
    Range("K21").Select
    Selection.Copy
    Worksheets("Suivi des contrôles en piste vpp - v05 10 2015 new").Activate
    Sheets("Suivi 2").Select
    Range("K" & i).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    Worksheets("contrôle sécurité en piste - test").Activate
    Sheets("contôle sep").Select
    Range("K25").Select
    Selection.Copy
    Worksheets("Suivi des contrôles en piste vpp - v05 10 2015 new").Activate
    Sheets("Suivi 2").Select
    Range("L" & i).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    Worksheets("contrôle sécurité en piste - test").Activate
    Sheets("contôle sep").Select
    Range("K26").Select
    Selection.Copy
    Worksheets("Suivi des contrôles en piste vpp - v05 10 2015 new").Activate
    Sheets("Suivi 2").Select
    Range("M" & i).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    Worksheets("contrôle sécurité en piste - test").Activate
    Sheets("contôle sep").Select
    Range("K27").Select
    Selection.Copy
    Worksheets("Suivi des contrôles en piste vpp - v05 10 2015 new").Activate
    Sheets("Suivi 2").Select
    Range("N" & i).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    Worksheets("contrôle sécurité en piste - test").Activate
    Sheets("contôle sep").Select
    Range("K28").Select
    Selection.Copy
    Worksheets("Suivi des contrôles en piste vpp - v05 10 2015 new").Activate
    Sheets("Suivi 2").Select
    Range("O" & i).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    Worksheets("contrôle sécurité en piste - test").Activate
    Sheets("contôle sep").Select
    Range("K29").Select
    Selection.Copy
    Worksheets("Suivi des contrôles en piste vpp - v05 10 2015 new").Activate
    Sheets("Suivi 2").Select
    Range("P" & i).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    Worksheets("contrôle sécurité en piste - test").Activate
    Sheets("contôle sep").Select
    Range("K30").Select
    Selection.Copy
    Worksheets("Suivi des contrôles en piste vpp - v05 10 2015 new").Activate
    Sheets("Suivi 2").Select
    Range("Q" & i).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
Application.ScreenUpdating = True

End Function

End Sub