Bonjour à tous,

je dispose d'une base de données avec 4 feuilles de calcul. Sur la première feuille, dans la colonne A, je renseigne les noms des clients de ma société qui sont ensuite repris sur les 3 autres feuilles. Les numéros de ligne correspondent entre les feuilles, c'est à dire que quand je renseigne le nom d'un client sur la ligne 8 de ma première feuille, ce sont les lignes 8 des 3 autres feuilles qui sont alimentées automatiquement.

Mon souhait était de créer une macro pour que quand je me positionne sur la ligne 8 par exemple de ma 1ère feuille, les lignes 8 des 4 feuilles soient supprimées.

Je pensais qu'en utilisant les références relatives cette opération serait assez simple mais ça ne fonction pas, (je précise que je n'ai pas de connaissance en programmation VBA):

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
Sub Macro2()
'
' Macro2 Macro
    ActiveCell.Rows("1:1").EntireRow.Select
    Selection.Delete Shift:=xlUp
    Sheets("Feuil2").Select
    ActiveCell.Offset(3, 0).Rows("1:1").EntireRow.Select
    Selection.Delete Shift:=xlUp
    Sheets("Feuil4").Select
    ActiveCell.Offset(3, 0).Rows("1:1").EntireRow.Select
    Selection.Delete Shift:=xlUp
    Sheets("Feuil3").Select
    ActiveCell.Offset(3, 0).Rows("1:1").EntireRow.Select
    Selection.Delete Shift:=xlUp
    Sheets("Feuil1").Select
    ActiveCell.Offset(-4, 0).Range("A1").Select
End Sub
Merci d'avance pour votre aide.