Sub trait()
ligne = ActiveCell.Row
feuille_liste = "feuil1"
prenom = Sheets(feuille_liste).Cells(ligne, 1)
nom = Sheets(feuille_liste).Cells(ligne, 2)
ville = Sheets(feuille_liste).Cells(ligne, 3)
txt1 = nom & " " & prenom & " loge dans la ville " & ville
txt2 = "et participe à la course du 31/06/07"
txt3 = " pour la société toto"
With Sheets("feuil2" )
.Cells(1, 1) = txt1
.Cells(2, 1) = txt2
.Cells(3, 1) = txt3
End With
End Sub |