bonjour!
Dans le code suivant, si la condition n'existe pas (ie aucune cellule index,1 ne contient 1 et index,3 ne contient rien), le programme plante...je ne sais pas comment faire pour que si cette condition n'existe pas, il passe au point suivant...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
For Index = 1 To 10000
 
 If (Cells(Index, 1) = "1" And Cells(Index, 3) = "") Then
  Range(Cells(Index, 1), Cells(Index, 2)).Select
  Selection.Copy
 
Cells(Index, 100).Select
ActiveSheet.Paste
End If
    Next Index

Merci à ceux qui pourront m'aider