Sheets(" ANTILLES & GUYANE").Rows(9 + [COLOR=blue][B]UserForm1.[/B][/COLOR]ListBox1.ListIndex).Delete
Sheets(10).Rows(9 + UserForm1.ListBox1.ListIndex).Delete
Sheets(11).Rows(9 + UserForm1.ListBox1.ListIndex).Delete
Sheets(12).Rows(9 + UserForm1.ListBox1.ListIndex).Delete
Sheets(13).Rows(9 + UserForm1.ListBox1.ListIndex).Delete
Sheets(14).Rows(9 + UserForm1.ListBox1.ListIndex).Delete
Sheets(15).Rows(9 + UserForm1.ListBox1.ListIndex).Delete
Sheets(16).Rows(9 + UserForm1.ListBox1.ListIndex).Delete
Sheets(17).Rows(9 + UserForm1.ListBox1.ListIndex).Delete
Sheets(18).Rows(9 + UserForm1.ListBox1.ListIndex).Delete