Discussion :

[pilounet54]

* Bonjour *

svp quelle est erreur !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Dim ligne As Long
   ligne = 9
    For ligne = 9 To Range("A" & Rows.Count).End(xlUp).Row
       If Application.CountIf(Cells(ligne, 3)) <> "" Then    
        End If
    Next ligne
  End Sub

* Merci *