Copie de macro

Sub Macro1()
'essai 2 S1600
'/////////////
'Déclarations
Dim debut As Long
Dim fin As Long
Dim ou_debut As Long
Dim Ligne_A_Copier As Range
'////////////////////////////////////
debut = ActiveCell.Row 'numéro de la ligne active
fin = ActiveCell.End(xlToRight).Column 'numéro de la dernière colonne
'de la plage à copier
'/////////////////////////////////////
'plage à copier
Set Ligne_A_Copier = Range(Cells(debut, 2), Cells(debut, fin))
'détermination de la dernière cellule non vide
'dans la colonne B d ela feuille "Liste Ech"
ou_debut = Sheets("Liste Ech").[B][B65000].End(xlUp)[/B].Row
'vérification que la celluel active est dans la
'colonne B

If ActiveCell.Column <> 2 Then
'Message d'avertissement
MsgBox "Veuillez sélectionner première cellule de la ligne à copier"
'Exit Sub
Else
'recopie des données dans la feulle "Liste Ech"
MsgBox ou_debut
Ligne_A_Copier.Copy Sheets("Liste Ech").Range("B" & ou_debut + 1)
Sheets("RUSH").[F2].Copy Sheets("Liste Ech").Cells(ou_debut + 1, 7)
End If
End Sub