Xpress Blog'

Exemple de boucle For : 
'Pour chaque cellule dans le classeur "Liste" dans la colone C
For Each cell In Sheets("Liste").Range("C:C")
      
'Si la cellule n'est pas vide et est différente du menu "Menu"
      If IsEmpty(cell.Value) = False And cell.Value <> "Menu" Then
      
      'on récupère le contenu de la cellule 
      Contenu =  cell.Value
      End If
Next

--------------------------------