bonjour je souhaiterai de la colonne 1 jusquà la colonne 13 comment svp j’écris

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
  For Each mCellule2 In Target
 
      If (mCellule2.Column = 5 Or _
            mCellule2.Column = 6 Or _
            mCellule2.Column = 8 Or _
            mCellule2.Column = 9) And _
            mCellule2.Row > 1 Then
           traiter_cellule1 mCellule2
           ' MsgBox ("ok")
     End If
bonne soirée à tous