Workbooks(Fichier).SaveAs Filename:=Chem & "\" & "FA" & Format(Date, "ddmm") & valeur & "-" & Fichier2
test = ActiveSheet.CheckBoxes.Add(20, 25, 24, 17.25).Select
With ThisWorkbook.Worksheets("Clients")
Com = "Clients"
Copie(0) = test
Copie(1) = Format(Date, "dd/mm/yyyy")
Copie(2) = "FA" & Format(Date, "ddmm") & valeur
Copie(3) = "9" & Left(.Range("B4"), 1) & "000"
Copie(4) = .Range("B4")
Copie(5) = .Range("B5")
Copie(6) = .Cells(MaLigne, 3)
End With
With Workbooks.Open(CheminFact & FichFact).Worksheets(Com)
Set dateact = .Range("A4:G500")
End With
With dateact
For j = 1 To 500
For i = 1 To 6
If .Cells(j, i) <> "" Then Exit For
Next i
If i > 5 Then i = j: Exit For
Next j
If j > 500 Then
MsgBox "La plage est pleine !", vbCritical, "Erreur"
Exit Sub
End If
.Rows(i) = Copie
ActiveWorkbook.Save
ActiveWorkbook.Close
End With