Macro permettant de supprimer lignes cellules vides

Bonjour à tous,

Grâce à l'aide du forum j'ai pu développer une macro permettant de supprimer les lignes contenant une cellule vide,

J'aimerais affiner celle-ci pour qu'elle supprime les lignes dont les cellules de certaines colonnes sont vides,

La macro en question :

Sub Ronde1Nuit()
'
' Ronde1Nuit Macro
'

'
    Range("C:D").Select
    Selection.Copy
    Sheets("Ronde1Nuit").Select
    Range("A1").Select
    ActiveSheet.Paste

    Worksheets("Ronde1Nuit").Range("A:B").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

    Sheets("Données brutes").Select
    Application.CutCopyMode = False

End Sub

Mon fichier :

Bonjour sj4555, le forum,

Tiens adapte ceci :

Sub sup_col_vides() 
Dim c 
For c = 256 To 1 Step -1 
If Cells(65536, c).End(xlUp).Row = 1 Then Cells(1,c).EntireColumn.Delete 
Next c 
End Sub 

De plus évite d'utiliser

Select

ou

Activate

dans tes codes. Je sais que c'est tentant mais c'est la source de nombreux bugs.

Bien cordialement,

Merci pour ta réponse MPETIT,

J'ai essayé ton code tel quel (pour comprendre ce qu'il faisait avant de l'adapter)

ça me renvoie une erreur de compilation(j'ai supprimé tous les activate au passage, pour le select je ne vois pas comment m'en passer pour le moment) :

Sub Ronde2Nuit()
'
' Ronde2Nuit Macro
'

'
    Worksheets("Données Brutes").Range("C:C,E:F,G:H").Copy Worksheets("Ronde2Nuit").Range("A1")

    Sheets("Ronde2Nuit").Select

    Dim c
    For c = 256 To 1 Step -1
    If Cells(65536, c).End(xlUp).Row = 1 Then Cells(1, c).EntireColumn.Delete

    Application.CutCopyMode = False

End Sub

For c = 256 To 1 Step -1
    If Cells(65536, c).End(xlUp).Row = 1 Then Cells(1, c).EntireColumn.Delete

    Application.CutCopyMode = False

Tu as oublié le

Next

Tiens pour les boucles : https://www.excel-pratique.com/fr/vba/boucles

Ensuite je n'ai pas dit que tu devais supprimer forcément les Sélect ou Activate mais tu verras pas la suite que plus ton code devient complexe, plus c'est deux fonctions sont sources d'erreurs.

Bien cordialement,