Sub nuit()
Application.ScreenUpdating = False
Dim ind1 As Integer, ind2 As Integer, Compte As Integer
ind2 = 5
With ActiveSheet
For ind1 = 5 To 23
Compte = Application.CountIf(Range("C" & ind1 & ":H" & ind1), "N")
If Compte > 0 Then
Range("B" & ind1 & ":H" & ind1).Copy Destination:=Range("R" & ind2 & ":X" & ind2)
ind2 = ind2 + 1
End If
Compte = Application.CountIf(Range("K" & ind1 & ":P" & ind1), "N")
If Compte > 0 Then
Range("J" & ind1 & ":P" & ind1).Copy Destination:=Range("R" & ind2 & ":X" & ind2)
ind2 = ind2 + 1
End If
Next
Application.ScreenUpdating = True
End With
End Sub