   (let* ((cr-style (or cr-style 'ergodis))
          (doom-bepo-hook (lambda (_mode mode-keymaps &rest _rest)
                            (dolist (keymap mode-keymaps)
-                             (general-translate-key '(normal motion visual) keymap
+                             (evil-collection-translate-key '(normal motion visual) keymap
                                "c" "h"
                                "C" "H"
                                "t" "j"

                               "k" "s"
                               "K" "S")
                             (cond ((eq cr-style 'ergodis)
                                    (general-translate-key '(normal motion visual) keymap
                                      "h" "r"
                                      "H" "R"
                                      "l" "c"
                                      "L" "C"))
                                   (t
                                    (general-translate-key '(normal motion visual) keymap
                                      "h" "c"
                                      "H" "C"
                                      "l" "r"
                                      "L" "R")))


                             (general-translate-key '(insert) keymap
                               "C-c" "C-h"
                               "C-C" "C-H"
                               "C-t" "C-j"
                               "C-T" "C-J"
                               "C-s" "C-k"
                               "C-S" "C-K"
                               "C-r" "C-l"
                               "C-R" "C-L"
                               "C-j" "C-t"
                               "C-J" "C-T"
                               "C-k" "C-s"
                               "C-K" "C-S")
                             (cond ((eq cr-style 'ergodis)
                                    (general-translate-key '(insert) keymap
                                      "C-h" "C-r"
                                      "C-H" "C-R"
                                      "C-l" "C-c"
                                      "C-L" "C-C"))
                                   (t
                                    (general-translate-key '(insert) keymap
                                      "C-h" "C-c"
                                      "C-H" "C-C"
                                      "C-l" "C-r"
                                      "C-L" "C-R")))

                             ;; <> en direct
                             (general-translate-key '(normal motion visual) keymap
                               "«" "<"
                               "»" ">")

                             ;; è pour aller au début de ligne
                             (general-translate-key '(normal motion visual) keymap
                               "è" "^"
                               "È" "0")

                             ;; [W] -> [É]
                             ;; [C-W] -> [W]
                             (general-translate-key '(normal motion operator visual) keymap
                               "é" "w"
                               "É" "W"
                               "w" "C-w"
                               "W" "C-w C-w")))))
    doom-bepo-hook))

      "J" "T"
      "k" "s"
      "K" "S"
      (kbd  "C-t") (kbd  "C-j")
      (kbd  "C-s") (kbd  "C-k")
      (kbd  "C-j") (kbd  "C-t")
      (kbd  "C-k") (kbd  "C-s")
      (kbd  "M-t") (kbd  "M-j")
      (kbd  "M-s") (kbd  "M-k")
      (kbd  "M-j") (kbd  "M-t")
      (kbd  "M-k") (kbd  "M-s")
      (kbd  "C-S-t") (kbd  "C-S-j")
      (kbd  "C-S-s") (kbd  "C-S-k")
      (kbd  "C-S-j") (kbd  "C-S-t")
      (kbd  "C-S-k") (kbd  "C-S-s")
      (kbd  "M-S-t") (kbd  "M-S-j")
      (kbd  "M-S-s") (kbd  "M-S-k")
      (kbd  "M-S-j") (kbd  "M-S-t")
      (kbd  "M-S-k") (kbd  "M-S-s"))))

;;;###autoload
(defun doom-bepo-rotate-é-quotes-bare-keymap (keymaps)
  "Rotate [w<>] with [é«»] in KEYMAP."
  (dolist (keymap keymaps)
    (evil-collection-translate-key nil keymap
      "é" "w"
      "É" "W"
      "«" "<"
      "»" ">"
      (kbd  "C-é") (kbd  "C-w")
      (kbd  "C-«") (kbd  "C-<")
      (kbd  "C-»") (kbd  "C->")
      (kbd  "M-é") (kbd  "M-w")
      (kbd  "M-«") (kbd  "M-<")
      (kbd  "M-»") (kbd  "M->")
      (kbd  "C-S-é") (kbd  "C-S-w")
      (kbd  "C-S-«") (kbd  "C-S-<")
      (kbd  "C-S-»") (kbd  "C-S->")
      (kbd  "M-S-é") (kbd  "M-S-w")
      (kbd  "M-S-«") (kbd  "M-S-<")
      (kbd  "M-S-»") (kbd  "M-S->"))))

;;;###autoload
(defun doom-bepo-rotate-cr-bare-keymap (keymaps &optional style)
