Bonjour flo2002,
Voici quelques commentaires sur ce que fait chaque ligne :
Sub Action4()
/* La procédure lancée s'appelle Action4 */
Dim VotreNom As String
/* Déclaration d'une variable qui s'appelle 'VotreNom' et qui est du type chaîne de caractères */
Range('A50').Select
/*Sélection d'une cellule déterminée par des coordonées : colonne A, ligne 50.
Selection.End(xlUp).Offset(1, 0).Select
/*Il part de la cellule sélectionnée ci-dessus, à savoir la cellule A50. Il remonte une à une les cellules (il passe en A49, A48 ...) jusqu'à ce que la cellule qui suit est non vide. Si la cellule A45 est non vide, la sélection s'arrête sur la A46.
VotreNom = InputBox(' Quel est votre nom?')
/*Une boîte apparaît et demande d'entre le nom. Ce nom que l'on rentre est stocké dans la variable VotreNom.
ActiveCell.Value = VotreNom
/*On écrit le nom entré dans la cellule sélectionnée (qui est par défaut celle active).
End Sub
Tu veux que le nom soit écrit dans toutes les cellules d'une colonne ? ou dans une cellule en particulier ? (auquel cas, il suffit de mettre au lieu de A50 les coordonées de la cellule que l'on veut).
En espérant avoir un peu aidé,