bonsoir à tous,
j'ai un bug dans la macro ci-dessous.
un coup de main serait le bienvenu.
merci d'avance à ceux qui prendront le temps de lire ce message.
Sub Macro1()
Dim mesLignes As String
Dim x As Long
For x = 65 To Range('A65536').End(xlUp).Row Step 72
mesLignes = IIf(mesLignes = '', x & ':' & x + 1, mesLignes & ',' & x & ':' & x + 1)
Next Range(mesLignes).Delete End Sub
Dim mesLignes As String
Dim x As Long
la variable meslignes=''
pour lui donner une valeur meslignes=Range('A' & x).value
pour effacer je pense qu'il faut commencer par la fin et il te faut au moins une condition
For x = Range('A65536').End(xlUp).Row To 65 Step -72
If Range('A' & x) = '' Then Range('A' & x) = x & ':' & x + 1
If Range('A' & x) = 'c' Then Range('A' & x).Delete
Next x