Re
Sinon dans le code que je vous ai proposé avant, il faut modifier cette ligne (mauvais recopiage de ma part...)
F.Range("A2:L" & .UsedRange.Rows.Count).Interior.Pattern = xlNone
par
Feuil3.Range("A2:L" & Feuil3.UsedRange.Rows.Count).Interior.Pattern = xlNone
En fonction de vos feuilles 2 et 33, le code devient ceci :
Sub copier()
Dim plage As Range
Dim dlg As Integer
With Feuil33
Set plage = Feuil2.Range("A2:L" & Feuil2.UsedRange.Rows.Count)
dlg = .UsedRange.Rows.Count
plage.Copy .Range("A" & dlg)
.Range("A2:L" & .UsedRange.Rows.Count).Interior.Pattern = xlNone 'Automatic
plage.ClearContents
End With
End Sub
Si pas ok, donnez moi votre vrai fichier ce sera plus simple
Cordialement