Normal que cela ne fonctionne pas, j'ai modifié le nom des feuilles car elles étaient mal orthographiées. Il reste maintenant à verifier la pertinence des éléments surlignés en vert.
Sub copier_coller_colonne()
For i = 4 To 15
If Application.WorksheetFunction.Count(Feuil4.Range(Cells(7, i), Cells(96, i))) < 18 Then
Feuil6.Range("A1:A90").Copy Feuil4.Cells(7, i)
Exit Sub
End If
Next
End Sub