Bonjour le forum
pour chaque cellule j'ai rentré ce code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
If [C5] <> C_code Then 'C_code étant le non d'un textbox
      [C6500].End(xlUp).Offset(1, 0).Select
      ActiveCell = "-"
    End If
 
    If [D5] <> C_code Then
      [D6500].End(xlUp).Offset(1, 0).Select
      ActiveCell = "-"
    End If
et ainsi de suite j'en ai 16 comme cela
il y a t'il un code qui me regrouperait tout
merci de votre aide