Option Explicit
Sub Filtre_Famille()
Dim i As Integer, j As Integer
Dim flag As Boolean
For i = 5 To Cells(Rows.Count, 1).End(xlUp).Row
flag = True
For j = 1 To 9
If LCase(Cells(i, j)) = "papa" Or LCase(Cells(i, j)) = "maman" Or LCase(Cells(i, j)) = "frere" _
Or LCase(Cells(i, j)) = "soeur" Or Cells(i, j) = "&23" Then
flag = False
End If
Next j
If flag Then Cells(i, j).EntireRow.Hidden = True
Next i
End Sub
Sub Afficher_Tout()
Dim i As Integer, j As Integer
Application.ScreenUpdating = False
For i = 5 To Cells(Rows.Count, 1).End(xlUp).Row
Rows(i).EntireRow.Hidden = False
Next i
Application.ScreenUpdating = True
End Sub
Sub Ecriture()
Dim i As Integer, j As Integer, k As Integer
For i = 5 To Cells(Rows.Count, 1).End(xlUp).Row
For j = 1 To 9
If LCase(Cells(i, j)) = "papa" Or LCase(Cells(i, j)) = "maman" Or LCase(Cells(i, j)) = "frere" _
Or LCase(Cells(i, j)) = "soeur" Or Cells(i, j) = "&23" Then
Range("K" & Rows.Count).End(xlUp).Offset(1, 0) = Cells(i, j)
Exit For
End If
Next j
Next i
End Sub
Sub mondico()
Dim f As Worksheet, mondico, BD(), tablo, i As Integer
Set f = Sheets("Feuil1")
Set tablo = f.Range("M5:M" & f.Range("M" & Rows.Count).End(3).Row)
BD = tablo.Value
Set mondico = CreateObject("Scripting.Dictionary")
mondico.CompareMode = vbTextCompare
For i = LBound(BD) To UBound(BD)
If Not mondico.Exists(BD(i, 1)) Then mondico.Add Cells(i + 4, 13), Cells(i + 4, 14)
Next
Dim c, j As Integer
For i = 5 To Cells(Rows.Count, 1).End(xlUp).Row
For Each c In mondico.keys
For j = 1 To 9
If Cells(i, j) = mondico(c) Then
Range("K" & Rows.Count).End(xlUp).Offset(1, 0) = mondico(c)
i = i + 1
Exit For
End If
Next j
Next c
Next i
Set mondico = Nothing
End Sub