Sub test()
Dim C As Range, ligne&
With Sheets("EFNC")
For Each C In .Range("AC1,J6:j10,x6:x10,K13,Y13,F15")
If C = "" Then .Activate: C.Select: MsgBox "Il manque une information en " & C.Address(0, 0), vbInformation, "Information": Exit Sub
Next
End With
With Sheets("incrementation")
ligne = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Range("A" & ligne).Value = Sheets("EFNC").Range("AC1").Value + 1
.Range("B" & ligne).Value = Sheets("EFNC").Range("J6").Value
.Range("C" & ligne).Value = Sheets("EFNC").Range("J7").Value
.Range("D" & ligne).Value = Sheets("EFNC").Range("J8").Value
.Range("E" & ligne).Value = Sheets("EFNC").Range("J9").Value
.Range("F" & ligne).Value = Sheets("EFNC").Range("J10").Value
.Range("G" & ligne).Value = Sheets("EFNC").Range("X6").Value
.Range("H" & ligne).Value = Sheets("EFNC").Range("X7").Value
.Range("I" & ligne).Value = Sheets("EFNC").Range("X8").Value
.Range("J" & ligne).Value = Sheets("EFNC").Range("X9").Value
.Range("K" & ligne).Value = Sheets("EFNC").Range("X10").Value
.Range("L" & ligne).Value = Sheets("EFNC").Range("K13").Value
.Range("M" & ligne).Value = Sheets("EFNC").Range("Y13").Value
.Range("N" & ligne).Value = Sheets("EFNC").Range("F15").Value
End With
Sheets("EFNC").Range("AC1").Value = Sheets("EFNC").Range("AC1").Value + 1
End Sub