Sub recap2()
Sheets("Facturation").Unprotect Password:="dt"
Ligne = 6
For Each s In Array("FacturationDBX13", "FacturationDBX26", "FacturationDBX69")
For lig = 6 To Sheets(s).[A500].End(xlUp).Row
If Sheets(s).Cells(lig, 1).Value <> "" Then
Sheets(s).Rows(lig).Copy Sheets("Facturation").Cells(Ligne, 1)
Ligne = Ligne + 1
End If
Next lig
Next
Sheets("Facturation").Protect DrawingObjects:=True, Contents:=True, Scenarios:=False, Password:="dt"
End Sub