Option Explicit
Sub TheReporter()
Dim Cell As Range
Dim L1 As Integer, L2 As Integer
L1 = 2
L2 = 2
For Each Cell In Sheets('Saisie').Range('A4:A100') 'à adapter
If Cell.Offset(0, 4) <> '' Then
With Sheets('Total Astreinte')
.Range('A' & L1) = 'X'
.Range('B' & L1) = Cell
.Range('C' & L1) = Cell.Offset(0, 1)
.Range('E' & L1) = Cell.Offset(0, 4)
End With
L1 = L1 + 1
End If
If Cell.Offset(0, 5) <> '' Then
With Sheets('Prise de Garde')
.Range('A' & L2) = 'X'
.Range('B' & L2) = Cell
.Range('C' & L2) = Cell.Offset(0, 1)
.Range('E' & L2) = Cell.Offset(0, 5)
End With
L2 = L2 + 1
End If
Next Cell
End Sub