Salut Pricer, Nikom et le forum
Essaye cette macro elle devrait régler ton problème
Option Explicit
Sub Insertion()
Dim Der_ligne As Integer
Dim I As Integer
Der_ligne = Range("A65535").End(xlUp).Row
For I = Der_ligne To 2 Step -1
If Application.WorksheetFunction.Weekday(Range("A" & I), 2) = 5 _
And Application.WorksheetFunction.Weekday(Range("A" & I + 1), 2) < 6 Then
With Range("A" & I + 1)
.EntireRow.Insert
.EntireRow.Insert
End With
Range("A" & I).AutoFill Destination:=Range("A" & I & ":A" & I + 2), Type:=xlFillDefault
Range("B" & I).AutoFill Destination:=Range("B" & I & ":B" & I + 2), Type:=xlFillDefault
Range("C" & I).Copy
Range("C" & I & ":C" & I + 2).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End If
Next I
End Sub
Mytå