XL 2016 rapport mensuel de maintenance

Cells(derligne, 1) = TextBox1.Value     ' ok
Cells(derligne, 2) = TextBox2.Value     ' ok
Cells(derligne, 3) = TextBox3.Value     ' ok
Cells(derligne, 4) = TextBox5.Value     ' ok
Cells(derligne, 5) = TextBox6.Value     ' ok
Cells(derligne, 6) = TextBox7.Value     ' ok
Cells(derligne, 7) = TextBox8.Value     ' n'existe pas
Cells(derligne, 8) = TextBox9.Value     ' n'existe pas
Cells(derligne, 9) = TextBox10.Value     ' n'existe pas
Cells(derligne, 10) = TextBox11.Value     ' ok
Cells(derligne, 11) = TextBox12.Value     ' ok
Cells(derligne, 12) = TextBox13.Value     ' ok
Cells(derligne, 13) = TextBox14.Value     ' n'existe pas
Cells(derligne, 14) = TextBox15.Value     ' n'existe pas
Cells(derligne, 15) = TextBox16.Value     ' n'existe pas
Cells(derligne, 16) = TextBox17.Value     ' n'existe pas
Cells(derligne, 17) = TextBox19.Value     ' n'existe pas
Cells(derligne, 18) = TextBox20.Value     ' n'existe pas
Cells(derligne, 19) = TextBox21.Value     ' n'existe pas
Cells(derligne, 20) = TextBox23.Value     ' ok

Private Sub CommandButton5_Click()
    If Application.Dialogs(xlDialogInsertPicture).Show Then
        'Définit l'emplacement de l'image
        Set CheminImage = ActiveSheet.DrawingObjects(ActiveSheet.Shapes.Count)
        Label = "Image en attente"
    End If
End Sub
Private Sub InsertionImage()
    Dim Emplacement As Range
    Label = ""
    On Error GoTo FinImage
    'Définit l'emplacement de l'image
    Set Emplacement = Range("K" & Sheets("ELECTRICITE").Range("A456541").End(xlUp).Row + 1)
    Set Img = CheminImage
    With Img.ShapeRange
        .LockAspectRatio = msoFalse
        .Left = Emplacement.Left
        .Top = Emplacement.Top
        .Height = Emplacement.Height
        .Width = Emplacement.Width
    End With
FinImage:
End Sub