Re,
Anonymiser un fichier contenant des données confidentielles prend deux secondes avec Excel. Maintenant, si tu as la flemme !...
[Édition 1]
Arf ! Désolé je navet pas bien regardé les captures d'écran je pensais que c'était deux tableaux différents alors que c'était un [Avant/Après]... Je reviens vers toi avec un code....
[Édition 2]
Le code à appliquer au bouton :
Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim BE As Variant 'déclare la variable BE (Boîte d'Entrée)
Set O = Worksheets("Feuil1") 'définit l'onglet O (à adapter à ton cas)
DL = O.Cells(Application.Rows.Count, "A").End(xlp).Row 'de'finit la dernière ligne éditée DL de la colonne A de l'onglet O
BE = Application.InputBox("Tapez la valeur numérique.", "VALEUR", Type:=1) 'définit la boîte d'entrée BE
If BE = False Or BE = "" Then Exit Sub 'si [Annuler] ou non renseignée, sort de la procédure
For I = 2 To DL 'boucle sur toutes les lignes I de 2 à DL
If O.Cells(I, "A").Value <> "" Then O.Cells(I, "B").Value = BE 'si la cellule en colonne A n'est pas vide, renvoie BE dans la cellule en colonne B
Next I 'prochaine ligne de la boucle
End Sub