Remplir les cellules vides des colonnes D1,H4,H1 avec la valeur au dessus

salut salut,

j'aimerais solliciter votre aides concernant le problème suivant; en effet j'ai TROIS colonne de plus de 15000 lignes avec des cellules contenant des valeurs entrecoupées d'autres cellules vides, ce que j'aimerais faire c'est remplir les cellules vides avec les valeurs au dessus, comme suit:

CORRECTION BUY

CONTINUATION SELL

CORRECTION SELL

etc

afin d'aboutir à

CORRECTION BUY

CORRECTION BUY

CORRECTION BUY

CORRECTION BUY

CONTINUATION SELL

CONTINUATION SELL

CONTINUATION SELL

CORRECTION SELL

CORRECTION SELL

CORRECTION SELL

etc....

merci d'avance

Bonjour,

je vous propose une solution, exécuter la procédure remplir

un petite problème pour la dernière valeur de la colonne

Salut LINSONN,

à adapter et à tester

Sub RemplirCellules()
    Dim DerLigne  As Long, i As Long
    Application.ScreenUpdating = False

    DerLigne = Cells(Rows.Count, "B").End(xlUp).Row
For j = 2 To 4
    For i = 39 To DerLigne  ' ici 39 parceque la première céllule est B39. À adapter!!!
        If Cells(i, j).Value = "" Then
            Cells(i, j).Value = Cells(i - 1, j).Value
        End If
    Next i
 Next j
 Application.ScreenUpdating = True
End Sub

Bonne journée

Merci exactement ce que je recherchait..