Bonjour,

J'ai un problème pour être en mesure de faire l'action suivante :
1- Sélectionner et copier une plage [nomajouter]
2- Rechercher dans la sélection LR, cellule par cellule, les cellules vide dans la colonne (b)
3- À chaque cellule vide, coller la sélection de la plage [nomajouter]

Pour l'instant, j'ai le code suivante, je crois que mon problème se situe lors du paste.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Sub AjouterNOm()
LR = Range("B300").End(xlUp).Row
Source = Range("nomajouter")
    Range("nomajouter").Select
    Range("nomajouter").Copy
    For X = LR To 1 Step -1
        If Cells(X, "B").Value = "" Then
              Cells(X, "B").PasteSpecial
        End If
    Next X
End Sub
est-ce que quelqu'un aurait une piste de solution.

Merci beaucoup!
Alex