Discussion :

[Aladin_23]

Bonjour le forum
J' ai commencé une macro qui fonctionne pour la recopie de donnée jusqu' à la premiere ligne non vide, mais je n' arrive pas à la transformer afin qu' elle balaye la colonne et refasse cette copie en répétitif.
Ci joint la macro et une image qui permettra de mieux comprendre ce que j' aimerais réalisé.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Recopie()
Dim cell As Variant
    Range([B3], [B65536].End(xlUp)).Select
    For Each cell In Selection
        If cell.Value = "" Then
            cell.Value = cell.Offset(-1, 0).Value
        End If
    Next cell
 End Sub

Merci d' avance pour toute aide
Aladin