Sub transfert()
'
' transfert Macro
' Macro enregistrée le 24/03/2009 par Renald
'
'
Sheets("Feuille d'entrainement").Select
Range("AD3:AT3").Select
Selection.Copy
Sheets("Evolution moyennes").Select
Dim NewLig
NewLig = Range("B8").End(xlUp).Offset(1, 0).Row
Range("B" & NewLig).Value = Range("AD3")
Range("C" & NewLig).Value = Range("AE3")
Range("D" & NewLig).Value = Range("AF3")
Range("E" & NewLig).Value = Range("AG3")
Range("F" & NewLig).Value = Range("AH3")
Range("G" & NewLig).Value = Range("AI3")
Range("H" & NewLig).Value = Range("AJ3")
Range("I" & NewLig).Value = Range("AK3")
Range("J" & NewLig).Value = Range("AL3")
Range("K" & NewLig).Value = Range("AM3")
Range("L" & NewLig).Value = Range("AN3")
Range("M" & NewLig).Value = Range("AO3")
Range("N" & NewLig).Value = Range("AP3")
Range("O" & NewLig).Value = Range("AQ3")
Range("P" & NewLig).Value = Range("AR3")
Range("Q" & NewLig).Value = Range("AS3")
Range("R" & NewLig).Value = Range("AT3")
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
End Sub