Bonjour,

Je viens de créer un petit code avec la fonction FIND, cependant je recontre un problème sur le code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sheets("Travail").select
If Cells.Find(What:="AVION_FRANCE", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ 
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ 
True, SearchFormat:=True).Activate Then 
 
Sheets("FRANCE").Select 
Cells.Select 
Selection.Delete Shift:=xlUp 
 
Else 
 
Sheets("Travail").Select 
 
End If 
 
Elseif If Cells.Find(What:="AVION_MAROC", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ 
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ 
True, SearchFormat:=True).Activate Then 
 
Sheets("MAROC").Select 
Cells.Select 
Selection.Delete Shift:=xlUp 
 
Else 
 
Sheets("Travail").Select 
 
End Sub
Si j'ai des données avec pays France dans ma sheet "Travail" il détecte et revient sur la première sheet, parcontre si il y en a pas, il bug et il s'arrête.

Pouvez-vous m'aider ?