Sub impression_feuille()
'
' impression_feuille Macro
' Macro enregistrée le 17.08.2007 par Tir Sportif Echallens
'
'
Sheets("Feuille de stand").Range("G2").Value = ActiveCell.Value
Sheets("Feuille de stand").Range("AH23").Value = Cells("W" & ActiveCell.Row).Value 'mais pourquoi AH23????
'tu peux aussi utiliser la propriété Offset(x,y) qui
'décale de x lignes et y colonnes en fonction de la cellule de départ
'du Style :
'Sheets("Feuille de stand").Range("AH23").Value = ActiveCell.Offset(0, 21).Value
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Individuel").Select
End Sub