Traduction ligne de code

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Sante as boolean, Carbu as boolean
Sante = false
Carbu = false
    if target.count>1 then exit sub
'Tests Santé
    If Target.Column = 11 And Target = "Santé" Then
         if target.offset(0,4) = "Dr" then Sante = true
    elseif Target.Column = 15 And Target = "Dr" Then
         if target.offset(0,-4) = "Santé" then Sante = true
    end if
'Tests Carburant
    If Target.Column = 11 And Target = "Carburant" Then
         if target.offset(0,-1) = 5008 then Carbu = true
    elseif Target.Column = 10 And Target = 5008 Then
         if target.offset(0,1) = "Carburant" then carbu = true
    end if
'Ecriture    
    if Sante then
         x = Sheets("Santé").Range("B" & Rows.Count).End(xlUp).Row + 1
         Worksheets("Opérations").Range("B" & Target.Row & ":G"   & Target.Row).Copy Destination:=Worksheets("Santé").Range("B" &   x)
         Sheets("Santé").Range("D" & x).ClearContents
         Sheets("Santé").Range("E" & x).ClearContents
    End If
    if Carbu then
         x = Sheets("Peugeot 5008").Range("B" & Rows.Count).End(xlUp).Row + 1
         Worksheets("Opérations").Range("B" & Target.Row & ":G"   & Target.Row).Copy Destination:=Worksheets("Peugeot 5008").Range("B" &   x)
         Sheets("Peugeot 5008").Range("D" & x).ClearContents
         Sheets("Peugeot 5008").Range("E" & x).ClearContents
    End If
 End Sub