[mth]

re-


ah bon? c'était juste pour jouer alors ? ... sourire ...

Bon, dans la macro, essaie de remplacer les deux lignes suivantes:

For each feuille gnagnagna
Feuille.Range(A2:H2)
par Feuille.Range(A3:H3)

et également dans la partie "supprimer les lignes inutiles":
If ActiveCell.Value = "Date" Or ActiveCell.Value = "x" Then
par If ActiveCell.Value = "" Or ActiveCell.Value = "x" Then

Ca semble marcher chez moi comme ça ...

Bien à toi,

M