Séléctione .Rows(Cellule1.Row).Columns("F:UV") ne fonctionne pas

Bonjour, je vous explique mon problème, avec un script je sélectionne les cellules qui n'ont pas une certaine couleur et je les copie sur une autre feuille, cela marche bien mis a part un petit détail je sélectionne la place de cette manière:

For Each Cellule2 In Intersect(.Rows(Cellule1.Row).Columns("F:UV"), .UsedRange)

cependant la cela ne fonctionne pas, ma sélection va jusqu'à la colonne "ID" mais pas jusqu'à la UV...

si je diminue la sélection jusqu'à "HF par exemple cela fonctionne bien...

Auriez vous une idée de mon erreur?

Voici le code au complet:

'#######Jours avancés#################
With Sheets("Feuil1")
'For Each Cellule1 In Intersect(.Range("F19:F27"), .UsedRange)
For Each Cellule1 In Intersect(.Range(FF & ":F45"), .UsedRange)
For Each Cellule2 In Intersect(.Rows(Cellule1.Row).Columns("F:UV"), .UsedRange)
If (Cellule2.Interior.Color <> C) And (Cellule2.Interior.Color <> D) Then
Sheets("Feuil2").Cells(i, Cellule1.Column + J + JoursAvance).Interior.Color = Cellule2.Interior.Color
Sheets("Feuil2").Cells(i, Cellule1.Column + J + JoursAvance).Font.Color = Cellule2.Font.Color
Sheets("Feuil2").Cells(i, Cellule1.Column + J + JoursAvance).Font.Bold = Cellule2.Font.Bold
Sheets("Feuil2").Cells(i, Cellule1.Column + J + JoursAvance) = Cellule2
J = J + 1
flag = True
End If
Next Cellule2
J = 1
If flag = True Then i = i + 1: flag = False
Next Cellule1
End With

bonjour, à condition qu'il y a au moins 1 cellule (intersect is not nothing)

Intersect(cellule1.EntireRow.Columns("F:UV"), .UsedRange)

ce FF, il est correct ? For Each Cellule1 In Intersect(.Range(FF & ":F45"), .UsedRange)