Salut romuald,
Pour ajouter la valeur '1' dans la cellule B des lignes que tu envois sur la feuil1, il faut que tu rajoute la ligne suivante entre 'ActiveSheet.Paste' et 'End If' :
Worksheets('feuil1').Cells(ad, 2) = 1
Ce qui donne ceci:
Amicalement,
Adon