J'avais mal lu.
Sub toto()
k = 2
Sheets("STOCK BLOC A").Cells.ClearContents
With Sheets("BLOC A")
For Each c In .Range("D2:D" & .Range("A" & .Rows.Count).End(xlUp).Row)
If c.Value = "" Then
.Rows(c.Row).Copy Destination:=Sheets("STOCK BLOC A").Cells(k, 1)
k = k + 1
End If
Next c
End With
k = 2
Sheets("STOCK BLIC B").Cells.ClearContents
With Sheets("BLOC B")
For Each c In .Range("D2:D" & .Range("A" & .Rows.Count).End(xlUp).Row)
If c.Value = "" Then
.Rows(c.Row).Copy Destination:=Sheets("STOCK BLIC B").Cells(k, 1)
k = k + 1
End If
Next c
End With
End Sub
Question j'aimerais me faire construire une maison au Maroc.
Sur 150m^2 de terrain, une maison de 150m^2 sur deux étages...
Aux environ de Fes ou entre rabat et casa..
Quel budget penses tu que j'aurais besoin pour cela ?