Bonjour Myta,
Désolé mais j'ai l'impression, si tu le veux bien, que je vais devoir demander ton aide. En effet, j'ai repris la 1ère version que tu m'as fournie, elle fonctionne bien (il faut juste que je positionne les colonnes de façon à ce qu'elles soient contiguës mais ça, c'est pas grave) mais je préfèrerais éliminer les lignes plutot que de les masquer. Je pense que ça ne doit pas être très compliqué pour toi, c'est pour cela que j'ai fait un copier/coller du code de façon à ce que tu fasses la modification directement si tu le veux bien (ne pas masquer les lignes mais les supprimer):
Dim Nbre_1 As Byte, ligne As Long, tag As Boolean
Dim fin As Long, cellule As Range
tag = False
Nbre_1 = 0
ligne = 1
fin = Range("A65535").End(xlUp).Row + 1
For Each cellule In Selection
If cellule.Row = ligne And tag = False Then tag = True
If ligne <> cellule.Row And (Nbre_1 < 2 Or Nbre_1 > 3) And tag = True Then
Rows(ligne & ":" & ligne).EntireRow.Hidden = True
End If
If ligne <> cellule.Row And tag = True Then
ligne = ligne + 1
Nbre_1 = 0
End If
If ligne = cellule.Row And cellule.Value = "1" And tag = True Then Nbre_1 = Nbre_1 + 1
If ligne = fin Then Exit Sub
saut:
Next cellule
Voilà, je te remercie à l'avance pour l'aide que tu voudras bien m'apporter (ou quelqu'un d'autre pourquoi pas!).