Supprimer les mêmes lignes dans plusieurs onglets

Salut les amis ,

J'ai besoin de votre aide pour une toute petite modification

Je souhaite effacer le contenu de toutes les lignes à partir de A12 jusqu'à l'infini et cela sur mon 3ème onglet ainsi que sur le 7ème et tous les autres qui suivront le 7ème onglet.

Ou alors un code qui me permet d'effectuer cette suppresion sur tous les onglets sauf l'onglet 1,2,4,5,6 c'est peut-être plus simple à coder ainsi

Pour le moment, mon code me permet d'effacer le contenu des lignes à partir du 7ème onglet jusqu'à l'infini -> je souhaiterais ajouter à cette sélection mon onglet 3 mais je ne sais pas comment modifier ma ligne -> For i = 7 To Sheets.Count

Sub Delete()

Dim ff As Integer

Dim i As Byte

Application.DisplayAlerts = False

For i = 7 To Sheets.Count

ff = 12 + Application.WorksheetFunction.CountA(Sheets(i).Range("A:A"))

Sheets(i).Rows("12:" & ff).Clear

Next

Application.DisplayAlerts = True

End Sub

Alors merci tout plein pour votre aide

Sophie

Salut Sophie,

Tu peux tester ça :

Sub Delete()
Dim ff As Integer
Dim i As Byte
Application.DisplayAlerts = False
    For i = 1 To Sheets.Count
            If i <> 1 And i <> 2 And i <> 4 And i <> 5 And i <> 6 Then
               ff = 12 + Application.WorksheetFunction.CountA(Sheets(i).Range("A:A"))
            Sheets(i).Rows("12:" & ff).Clear
               End If
        Next
Application.DisplayAlerts = True
End Sub

Girodo,

TROP BIEN Girodo

Super ça marche tout comme je le souhaitais, merci beaucoup pour ton aide!!!