With Worksheets("Liste Absence")
Dim Derlig&, DL&
Derlig = .Range("F" & Rows.Count).End(xlUp).Row + 1
' Ici il manque le point . Juste apres le ==> .Range( . [A:A].Find
' A bien mettre entre la parenthese et le crochet ( . [
DL = .Range(.[A:A].Find("*", , , , xlByRows, xlPrevious).Address(0, 0)).Row '+ 1
'******
.Range("F" & Derlig & ":I" & Derlig + DL - 1) = .Range("A1:D" & DL).Value
.Range("A1:D1") = ""
End With