Bonjour à tous,

je me pose la question peut on simplifier ce code qui prend beaucoup de temps si le nombre de ligne est important.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Range("AA1").Select
Do While ActiveCell.Value <> ""
     ActiveCell.Offset(0, 6).Select
     If ActiveCell.Offset.Value = "" Then
        ActiveCell.Value = "OK"
    End If
       ActiveCell.Offset(1, -6).Select
Loop