Private Sub CommandButton1_Click()
Dim ligTotalHT As Variant, lig As Variant
If [A8] = "" Then Exit Sub
ligTotalHT = Application.Match("Total HT", [K:K], 0)
If IsError(ligTotalHT) Then MsgBox "Pas de Total HT en colonne K...": Exit Sub
'---transfert---
With Sheets("ARCHIVES DEVIS")
If .FilterMode Then .ShowAllData 'si la feuille est filtrée
lig = Application.Match(Trim([C14]), .[A:A], 0)
If IsError(lig) Then lig = .Cells(.Rows.Count, 1).End(xlUp)(2).Row
.Rows(lig).Resize(, 11) = "" 'RAZ
.Cells(lig, 1) = Trim([C14])
.Cells(lig, 2) = [F14]
.Cells(lig, 3) = [C11]
.Cells(lig, 4) = UCase([A8])
If Val([I10].Text) Then .Cells(lig, 5) = Val([I10].Text)
.Cells(lig, 6) = Mid([I10].Text, InStr([I10].Text, " ") + 1)
If [I14] <> "" Then .Cells(lig, 7) = Trim(Split([I14], "-")(UBound(Split([I14], "-"))))
.Cells(lig, 8) = Cells(ligTotalHT, "Q")
.Cells(lig, 9) = Cells(ligTotalHT + 7, "K")
.Cells(lig, 10) = Cells(ligTotalHT + 7, "Q")
.Cells(lig, 11) = Cells(ligTotalHT + 4, "Q")
.Activate 'facultatif
End With
'---effacements---
[A8,C11,C14,F14,I14] = ""
Range("A17:O" & ligTotalHT - 1) = ""
End Sub