Vola un petit bout de code que tu peux recopier en adaptant
Bonne journée
Patrick C
Sub recopiage()
'
nb_ligne = 0
Application.ScreenUpdating = False
'tu comptes le nb de lignes qu'il y a dans ta feuille
For i = 1 To Rows.Count
If Cells(i, 2) <> "" Then
nb_ligne = nb_ligne + 1
End If
Next
o = 1
For j = 1 To nb_ligne
calend = Cells(j, 2)
If WeekDay(Cells(j, 2), vbSunday) <> 1 Then
If WeekDay(Cells(j, 2), vbSunday) <> 7 Then
'tu choisis ce que tu veux copier
Cells(j, 2).Select
Selection.Copy
'tu définis l'endroit où tu veux coller
Sheets("Feuil1").Select
Cells(o, 2).Select
ActiveSheet.Paste
o = o + 1
'tu reviens à la feuille de départ
Sheets("absences").Select
End If
End If
Next
Application.ScreenUpdating = True
'
End Sub