pour la 2e question
lire l’adresse avec activeCell.value
Ecrire Bonjour à l'adresse
Sub Bonjour()
Dim adcopie as string ' une variable adcopie définie comme chaîne va recevoir l'adresse de copie
adcopie=activecell.value 'on lit l'adresse dans la cellule active
Range(adcopie).value="Bonjour) ' On écrit à l’adresse lue
End Sub
@+