Bonjour

Sur la première ligne d'une feuille, j'ai deux types de valeurs possibles: 1 ou 2

Je souhaiterais que toutes les colonnes ayant la valeur 1 soient supprimées.
La macro doit pouvoir fonctionner sur plusieurs feuilles de calcul, sur lesquelles les colonnes "1" ne sont pas toutes au même endroit.
D'où le besoin de pouvoir critériser la suppression de la colonne sur la valeur 1 de la première ligne.


La macro ci-dessous ne me permet pas d'arriver au résultat souhaité:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Sub SUP_COL()
 
		For i = 1 To 300
			If not Cells(1, i) = "1" Then
				columns(1,i).entirecolumn.delete
				end if
			next
 
		End Sub
Par exemple sur le fichier ci-joint, j'aimerais qu'il ne reste que les colonnes "2", et si-possible dans leur ordre initial, c'est à dire avec les valeurs de la ligne 2 dans l'ordre alphabétique.

Voyez-vous une solution svp?

Merci par avance.

SUP_COL.xlsx