Suppression de plage variable

Bonjour

essaies en remplaçant

Dim cel As Range
For Each cel In Range('A1:A5000')
If cel.Value = 'Absents' Then
Range('A1:A' & cel.row).Select
Selection.Delete Shift:=xlUp
End If
Next

essaies même en supprimant le select

Dim cel As Range
For Each cel In Range('A1:A5000')
If cel.Value = 'Absents' Then
Range('A1:A' & cel.row).Delete
End If
Next

Merci beaucoup tu as été plus vite que moi

Après 15 min je venais enfin de pensé à:

Range('a1:' & cel.Address).Select

Merci beaucoup pour ta rapidité

Temjeh

Merci encore voilà le final

Dim cel As Range
For Each cel In Range('A1:A5000')
If cel.Value = 'Absents' Then
Range('A1:A' & cel.Row).Select
Selection.EntireRow.Select
Selection.Delete Shift:=xlUp
End If
Next

Temjeh