Merci beaucoup c'est exactement sa, j'ai juste un petite question pour essayer de comprendre le programme. Si je voulais rajouter 2 magasins, il faudrait juste que je rajoute : pour le select case
Case Is = 5
col = 9
Case Is = 6
col = 10
pour le if :
j = 6
For i = 2 To derlig
If UCase(Sheets("Feuil1").Cells(i, col).Value) = "X" Then
Sheets("Feuil3").Cells(j, 5).Value = Sheets("Feuil1").Cells(i, 5).Value
Sheets("Feuil3").Cells(j, 6).Value = Sheets("Feuil1").Cells(i, 6).Value
Car j'ai voulue tester en refaisant le programme mais cela ne fonctionne pas donc c'est surement que j'ai modifier qqch qui ne fallais pas XD