Bonjour,


je cherche, dans une feuille "Admin" à créer un bouton pour supprimer toutes les lignes après la ligne 1 de toutes les feuilles nommées sem1, sem2 sem3 ....jusqu'à sem53
(ce sont des semaines).
J'ai modifié les noms "feuil1" en "sem1"... et en onglet sont nommées S1..
La ligne 1 est figée, j'ai figé les volets, et apres donc cette ligne 1, ce sont toutes les lignes d'apres que je veux pouvoir supprimer dans toutes les feuilles de sem1 à sem53
Les differentes colonnes dans ces feuilles son toujours les memes, A,B,C,D,E,F

J'ai tenté ce code mais ça ne marche pas, j'ai du mal à comprendre pourquoi :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Supprimer_Click()
Dim i As Integer, j As Integer
Dim code
a = MsgBox("Etes vous sur de vouloir faire cela ?", vbYesNo)
If (a = 6) Then
With Sheets("S1")
code = .Range("A" & ActiveCell.Row) & .Range("B" & ActiveCell.Row) & _
    .Range("C" & ActiveCell.Row) & .Range("D" & ActiveCell.Row) & .Range("E" & ActiveCell.Row) & .Range("F" & ActiveCell.Row)
End With
For i = 2 To Sheets.Count
With Sheets(i)
    For j = .Range("B65536").End(xlUp).Row To 6 Step -1
        If .Cells(j, 2) = code Then .Rows(j).Delete
    Next j
End With
Next
Selection.EntireRow.Delete
Else
Cancel = True
End If
End Sub
Mais ça ne marche pas

Merci de votre aide