Problème sur une boucle For Each

Bonjour,

J'ai une soucis avec une fonction VBA pour excel (ci-dessous)

Dim cellrange
Dim CellMax
Dim cellcount
Dim MaxLocal
Dim ligne
Dim Workcol
Dim Cellcount
Dim AED

Ligne = 3
WorkCol = 4
cellcount = 0
AED = 2

Do Until Rows(Ligne).Columns(1) = Empty
    For Each cellrange In Range(Rows(Ligne).Columns(WorkCol), Rows(Ligne).Columns(WorkCol + 5))
    ' Compteur de cellule non-vide
        If cellrange.Value <> Empty Then
        cellcount = cellcount + 1
        End If
    Next cellrange
   ' Fin du compteur
    If cellcount <> 0 Then
    MaxLocal = WorksheetFunction.Max(Rows(Ligne + 2).Columns(AED), Rows(Ligne + 1).Columns(AED), Rows(Ligne).Columns(AED), Rows(Ligne - 1).Columns(AED), Rows(Ligne - 2).Columns(AED))
   'Detection du maximun
        For Each CellMax In Range(Rows(Ligne - 2).Columns(AED), Rows(Ligne + 2).Columns(AED))
            If CellMax.Value = MaxLocal Then
            MsgBox "Here your max"
            CellMax.Activate
        Next CellMax

    Else
    End If

    cellcount = 0
    Ligne = Ligne + 1
Loop

End Sub

En gros, dans cette fonction, j'ai une première partie qui me détecte la présence d'au moins un marqueur dans une portion de ligne; puis suite à cette détection, le repérage d'un maximun...
Or, le repérage du maximun me renvoit une erreur pour "Cellmax.value"...
Pourtant, la syntaxe de ma boucle "for each" est la même dans les deux parties, la seul différence est qu'à un moment il doit chercher sur la même ligne de différentes colonnes, et ensuite sur différentes lignes de la même colonne...
Cependant, je ne vois pas où se trouve l'erreur... des idées?

MErci d'avance !