bonsoir

je ne comprends pas aussitôt que ma macro arrive sur la ligne offset la macro s'arrête

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
  Function test(plage As Range) As Double
 
   Do While plage.Interior.ColorIndex >= 35 
         plage = plage.Offset(-1, 0)           
   Loop
   plage = plage.Offset(0, -1).Activate
   MsgBox plage.Value
   test = plage.Value
 
End Function