Option Compare Text
Private Sub CommandButton1_Click()
Range("A4:C19,a21:c25,d4:f9,d11:f15,g4:i10,g12:i16").ClearContents
Dim FeAB As Worksheet, dlf As Integer, c As Range, dlLib As Integer, dlLij As Integer
nomf = Array("A", "B")
For i = 0 To UBound(nomf)
Set FeAB = Worksheets(nomf(i))
dlf = FeAB.[B65536].End(xlUp).Row
For Each c In FeAB.Range("A2:A" & dlf)
If c.Offset(, 1) <> vbNullString Then
Select Case c.Offset(0, 7)
Case "AVANT"
dlLib = [A19].End(xlUp).Row + 1
Range("A" & dlLib) = c
Range("B" & dlLib) = c.Offset(, 1)
Range("C" & dlLib) = c.Offset(, 2)
Case "APRES"
dlLib = [D26].End(xlUp).Row + 1
Range("D" & dlLib) = c
Range("E" & dlLib) = c.Offset(, 1)
Range("F" & dlLib) = c.Offset(, 2)
Case "Demain"
dlLib = [G10].End(xlUp).Row + 1
Range("G" & dlLib) = c
Range("H" & dlLib) = c.Offset(, 1)
Range("I" & dlLib) = c.Offset(, 2)
Case "aaa"
dlLib = [G27].End(xlUp).Row + 1
Range("G" & dlLib) = c
Range("H" & dlLib) = c.Offset(, 1)
Range("I" & dlLib) = c.Offset(, 2)
Case "bbb"
dlLib = [D32].End(xlUp).Row + 1
Range("D" & dlLib) = c
Range("E" & dlLib) = c.Offset(, 1)
Range("F" & dlLib) = c.Offset(, 2)
Case "ccc"
dlLib = [G22].End(xlUp).Row + 1
Range("G" & dlLib) = c
Range("H" & dlLib) = c.Offset(, 1)
Range("I" & dlLib) = c.Offset(, 2)
End Select
End If
Next c
Next i
Columns("A:I").AutoFit
End Sub