Recherche:

With ActiveSheet

DerLigI = .Range("I" & .Rows.Count).End(xlUp).Row

For Each CellI In ActiveSheet.Range("I11: I" & DerLigI) 'Modification

If CellI <> "" Then
CellI.Select

...

Salut tout le monde,

J'ai un petit souci et je vous serai reconnaissante si vous pouvez me donner un coup de main.

voici mon souci:

La ligne I contient des valeurs. je veux que a chaque fois...