Faire remonter des cellules d'un tableau

Bonjour,

Je suis bloqué sur une macro depuis quelques jours, la raison est simple ma macro ne prend pas en compte des valeurs provenant de formule et je ne comprends pas pourquoi.

Sub remonte()

Dim counter, i

counter = WorksheetFunction.CountIfs _
(Range("n13:n" & Range("n70").End(xlUp).Row), "")
Do Until (counter = 0)

For i = 13 To Range("n70").End(xlUp).Row

If IsEmpty(Range("n" & i)) Then
Range("n" & i + 1 & ":q" & i + 1).Cut _
Destination:=Range("n" & i & ":q" & i)
End If

Next i
counter = counter - 1
Loop
End Sub

Ma macro ressemble à cela, de plus je vous joint mon fichier . Pour comprendre j'aimerais que les valeurs du tableau "Repassage" se colle pour une plus grande clarté.

Merci d'avance pour votre aide.

Bonjour,

à essayer :

Sub remonte()
Dim i As Integer
Application.ScreenUpdating = False
For i = 70 To 11 Step -1
    If Range("n" & i).Value = "" Then
        Range("n" & i & ":q" & i).Delete Shift:=xlUp
    End If
Next i
End Sub

A régler avant de lancer la macro:

- colonne N et suivantes, pas de formule sur toutes les lignes 11 à 70

A+