'
' SelectSheets Macro
' Macro enregistrée le 26/08/2006 par Fred
'

'
    Sheets("Alstom").Select
    Range("C1").Select
    Selection.Copy
    Sheets("Essai").Select
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("France Télécom").Select
    Range("C1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Essai").Select
    Range("A3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Infogramme").Select
    Range("C1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Essai").Select
    Range("A4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Ingénico").Select
    Range("C1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Essai").Select
    Range("A5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Lagardère").Select
    Range("C1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Essai").Select
    Range("A6").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub