(RESOLUTO)Remplissage d'ub tableau via une feuille type

Sub Valider()
Dim F As Worksheet, derlig&, c As Range, c1 As Range
Set F = Sheets("FNA")
With Sheets("BdD").[A:M]
  derlig = .Find("*", , xlValues, , xlByRows, xlPrevious).Row + 1
  For Each c In .Rows(1).Cells
    If c <> "" Then
      Set c1 = F.Cells.Find(c)
      If Not c1 Is Nothing Then c(derlig) = c1.Offset(, 1)
      If LCase(c) = "info20" Then c(derlig) = F.[P22]
    End If
  Next
  .Parent.Activate 'facultatif
End With
'---RAZ---
For Each c In F.UsedRange
  If c.Interior.Color = 16777215 Then c = ""
Next
End Sub

If LCase(c) = "info20" Then c(derlig) = F.[P22]