Boucle pour effacer des cellules fusionnées

Bonjour,

Pour effacer un grand nombre de cellules fusionnées j'ai utilisé le code ci-dessous, mais seules les lignes sont simplifiées par une boucle, J'ai essayé de créer une boucle avec les colonnes mais ne fonctionne pas, quelqu'un aurait-il une solution, merci.

Dul

Sub Boutoneffacecroix_QuandClic()

Dim I As Integer

For I = 3 To 22

Range("C" & I).MergeArea.ClearContents

Range("E" & I).MergeArea.ClearContents

Range("G" & I).MergeArea.ClearContents

Range("I" & I).MergeArea.ClearContents

Range("K" & I).MergeArea.ClearContents

Range("M" &I).MergeArea.ClearContents

Range("O" & I).MergeArea.ClearContents

Range("Q" & I).MergeArea.ClearContents

Range("S" & I).MergeArea.ClearContents

Range("U" & I).MergeArea.ClearContents

Range("W" & I).MergeArea.ClearContents

Range("Y" & I).MergeArea.ClearContents

Range("AA" & I).MergeArea.ClearContents

Range("AC" & I).MergeArea.ClearContents

Range("AE" & I).MergeArea.ClearContents

Range("AG" & I).MergeArea.ClearContents

Range("AI" & I).MergeArea.ClearContents

Next I

End Sub

Bonjour,

For I = 3 To 22
 For y = 3 To 35 Step 2
  Cells(I, y).MergeArea.ClearContents
 Next y
Next I

Bonjour Dul, bonjour le forum

Peut-être comme ça :

For I = 3 To 22
    For J = 3 To 35 Step 2
        Cells(I, J).MergeArea.ClearContents
    Next J
Next I

[Édition]

Bonjour Seb, nos posts se sont croisés...

Bonjour ThauThème, Bonjour SabV,

Merci beaucoup.

Dul.