Réunir plusieurs macro

Bonjour à tous,

Tout d'abord un grand merci pour ce forum il m'a été d'une grande d'aide depuis que je commence à m'initier au VBA !

je vous expose mon problème :

J'ai créé 4 macros pour supprimer les lignes contenant une valeur différente de zéro dans la colonne 3 puis 4 puis 5 puis 6.

Ces macros fonctionnent très bien mais j'aimerais toutes les regrouper. Et quand j'essaie de le faire tout se supprime d'un coup ... (normal une ligne peut contenir des 0 dans la colonne 3 mais pas dans la 4 par exemple).

Est ce que vous auriez une astuce pour les regrouper ? Sachant qu'ensuite j'aimerais ajouter dans le code réuni, une fonction qui me permettrait de supprimer les colonnes 3,4,5,6.

En vous remerciant d'avance

ci dessous mes codes

Sub supprc3()

Dim ligne As Integer: Dim colonne As Integer

Dim der_Ligne As Integer

der_Ligne = Cells.SpecialCells(xlCellTypeLastCell).Row

ligne = 2: colonne = 3

While ligne < der_Ligne

If (Cells(ligne, colonne).Value <> 0) Then

Cells(ligne, colonne).EntireRow.Delete

ligne = ligne - 1

End If

ligne = ligne + 1

Wend

End Sub

Sub supprc4()

Dim ligne As Integer: Dim colonne As Integer

Dim der_Ligne As Integer

der_Ligne = Cells.SpecialCells(xlCellTypeLastCell).Row

ligne = 2: colonne = 4

While ligne < der_Ligne

If (Cells(ligne, colonne).Value <> 0) Then

Cells(ligne, colonne).EntireRow.Delete

ligne = ligne - 1

End If

ligne = ligne + 1

Wend

End Sub

Sub supprc5()

Dim ligne As Integer: Dim colonne As Integer

Dim der_Ligne As Integer

der_Ligne = Cells.SpecialCells(xlCellTypeLastCell).Row

ligne = 2: colonne = 5

While ligne < der_Ligne

If (Cells(ligne, colonne).Value <> 0) Then

Cells(ligne, colonne).EntireRow.Delete

ligne = ligne - 1

End If

ligne = ligne + 1

Wend

End Sub

Sub supprc6()

Dim ligne As Integer: Dim colonne As Integer

Dim der_Ligne As Integer

der_Ligne = Cells.SpecialCells(xlCellTypeLastCell).Row

ligne = 2: colonne = 6

While ligne < der_Ligne

If (Cells(ligne, colonne).Value <> 0) Then

Cells(ligne, colonne).EntireRow.Delete

ligne = ligne - 1

End If

ligne = ligne + 1

Wend

End Sub

Edit modo : merci de mettre le code entre balises grâce au bouton </>

Bonjour Mattod, le forum,

Un petit fichier peut-être avec les données de départ, et le résultat attendu après l'exécution des macros ?

Cordialement,