Problème code vb - base de données

Private Sub BoutonValider_Click()
Dim Depart As Range
Dim Reponse As Variant
If Bigram.Value <> "" And Design.Value <> "" Then                                    ' Si le bigramme et la désignation ont bien été saisis
    Select Case Ajout
        Case True                                                                                       ' Si c'est un nouvel enregistrement
            If Vide = False Then                                                                     ' Si le tableau est vide
                Set Depart = RMMoteurs.Range("Bigramme").[COLOR=red]Offset(2, 0).[/COLOR]End(xlDown).Offset(1, 0)
            Else                                                                                            ' Si le tableau n'est pas vide
                Set Depart = RMMoteurs.Range("Bigramme").Offset([COLOR=red]2[/COLOR], 0)
            End If
        Case False                                                                                      ' Si ce n'est pas un nouvel enregistrement
            Set Depart = RMMoteurs.Range("Bigramme").Offset([COLOR=black]Position[/COLOR], 0)
    End Select

ThisWorkbook.Activate
Sheets("BOM").Select
Range("B8").Select
Range(Selection, Selection.End(xlDown)).Select
[COLOR=red]Selection.Resize(Selection.Rows.Count, 18).Select[/COLOR]
Selection.Sort Key1:=Range("B8"), Order1:=xlAscending, Header:=xlNo, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal
Range("B8").Select

...
Case True                                                                                       ' Si c'est un nouvel enregistrement
            If Vide = False Then                                                                     ' Si le tableau est vide
                Set Depart = RMMoteurs.Range("B500").End(xlUp).Offset(1, 0)
...

...
Sheets("BOM").Select
Range("B8", Range("B500").End(xlUp)).Select
Selection.Resize(Selection.Rows.Count, 18).Select
...

Range("B8", Range("S" & Range("B500").End(xlUp).Row)).Select