Bonsoir à tous et surtout très bonne année !

J'ai besoin pour un logiciel tournant sous Excel d'ouvrir une inputbox si la cellule est différente de la cellule juste au dessus...

J'ai donc pondu le code suivant :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
For Each varCodeCourse In Range("Q2:" & [Q2].SpecialCells(xlCellTypeLastCell).Address)
    If varCodeCourse.Value <> varCodeCourse.Offset(-1, 0).Value Then
        varNCourse = InputBox("Numéro d'épreuve pour le " & varCodeCourse, "Gestion des courses")
        varCodeCourse.Offset(0, -1).Value = varNCourse
        varCodeCourse.Select
    ElseIf varCodeCourse.Value = varCodeCourse.Offset(-1, 0).Value Then
        varCodeCourse.Offset(0, -1).Value = varCodeCourse.Offset(-1, -1).Value
        varCodeCourse.Select
    End If
 Next varCodeCourse
mais j'ai un problème avec Range("Q2:" & [Q2].SpecialCells(xlCellTypeLastCell).Address) car au lieu de me sélectionner toute les cellules pleine de la colonne Q (à partir de Q2) il me sélectionne toutes les cellules de Q2 à DN389

Où est mon erreur ?? Est-ce un bug ?
Merci d'avance
Nico